Select Code to Download

open my $fh, "<", "Google_1.txt";
print $_ while <$fh>;

open my $fh, "<", "Google_1.txt";
my @file_array = <$fh>;
chomp @file_array;