Select Code to Download

my @files = ('tab1.txt','tab2.txt');

...
# which lets you omit the quotes and the comma:

my @files = qw( tab1.txt tab2.txt );

    my $hash_key =~ s/\.txt//; # generate hash key

Use of uninitialized value in substitution (s///) at merge.pl line 16.

    (my $hash_key = $file) =~ s/\.txt//; # generate hash key

$ptables{$hash_key} = [ @string_array ]; # save all strings to the has
+h
print Dumper(\%ptables);                 # use "\" to pass reference o
+f hash