open (my $fh, "<", "Google_1.txt");
my @file_array;
while (my $line = $fh){
	chomp($line);
	push (@file_array, $line);
}

print "@file_array \n";