use warnings;
use strict;

@ARGV = 'Google_1';
my @results;

while (<ARGV>) {
    chomp $_;
    push( @results, $_ );
}
print "@results\n";