Input/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;
}