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