Select Code to Download

# wrong
while (my $line = $fh){

# right
while (my $line = <$fh >){

open (my $fh, "<", "test.txt");
my @file_array = (<$fh>);
print @file_array,"\n";

#!/usr/bin/perl
use warnings;
...
}

print "@results\n";