RosettaCodeData/Task/Input-loop/Perl-6/input-loop-5.pl6

for "filename.txt".IO.words -> $word {
    ...
}