This sounds like data sharing, for which I'd use JSON (it's cross-language).

I've included an example script that shows you how you write JSON to a file called write.pl.

I then show the resulting JSON data in the file, then a script fetch_hash.pl that reads in the data using a command line argument.

write.pl

use warnings;
use strict;

use JSON;

my %first_hash = (fruit => 'banana', Vegetable => 'tomato');
my %second_hash = (work => 'office', family => 'home');

my %hashes = (
    first_hash => \%first_hash,
    second_hash => \%second_hash,
);

my $json = encode_json \%hashes;

open my $fh, '>', 'data.json' or die $!;
print $fh $json;
[download]

data.json (JSON file)

{"second_hash":{"work":"office","family":"home"},"first_hash":{"Vegeta
+ble":"tomato","fruit":"banana"}}
[download]

fetch_hash.pl

use warnings;
use strict;

use Data::Dumper;
use JSON;

if (! @ARGV && ($ARGV[0] ne 'first_hash' || $ARGV[0] ne 'second_hash')
+){
    print "need first_hash or second_hash as arg\n";
    exit;
}

my $want = $ARGV[0];
my $file = 'data.json';

my $json;

{
    local $/;
    open my $fh, '<', $file or die $!;
    $json = <$fh>;
    close $fh;
}

my $data = decode_json $json;

print Dumper $data->{$want};
[download]

Output:

$ perl fetch_hash.pl first_hash

$VAR1 = {
          'fruit' => 'banana',
          'Vegetable' => 'tomato'
        };

$ perl fetch_hash.pl second_hash

$VAR1 = {
          'work' => 'office',
          'family' => 'home'
        };
[download]