Great idea! I've seen this on actual code:

my @lines;
while (<>) {
    @lines = (@lines, $_);
}
[download]