gistfile1.txt

sub cheap-lines($f) {
    gather while (my $line = $f.get) {
        take $line;
    }
}

given open('words') -> $f {
    my @a = cheap-lines($f);
}