my @output; while (my $line = ) { chomp $line; push @output, $line; }