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