one token per line

[chungku]

hi sir,
this is my input

i am very happy

i want this output

i
am
very
happy

this is the program i wrote

open(FH, "worldaff_join.txt") or die("error opening");
@file=<FH>;
foreach $line (@file)
{
 @sentence=split(/ /,  $line);
print"@sentence";
}
close(FH);
 

but the output is not what i wanted

[chaarmann]

your words are in an array now:

@sentence=("i", "am", "very", "happy");

You must loop through the array and print each array element:

foreach (@sentence){print "$_\n";}

[chaarmann]

I found another way without loop:

print join("\n",@sentence);