Output for lines of text

Short version:

say get for ^get;

Verbose version:

sub do-stuff ($line) {
    say $line;
}
 
my $n = +get;
for ^$n {
    my $line = get;
    do-stuff $line;
}