my @arr; while ( <$fh> ) { chomp; push @arr, $_; }