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