use strict;
use warnings;
use Storable;
my %table=(
    a => 1,
    b => 2,
    c => 3
);
store \%table, 'file';

##</code><code>##

use strict;
use warnings;
use Storable;
use Data::Dumper;
my $hashref = retrieve('file');
print Dumper $hashref;