use strict;
    use warnings;
    use Storable qw/ freeze thaw /;
    use Data::Dumper;
    
    my %foo = (
        one => [ qw/ a b c / ],
        two => [ qw/ 1 2 3 / ]
    );
    
    my $serialized = freeze \%foo;
    my %clone = %{ thaw $serialized };
    
    print Dumper \%clone;