#! perl -slw
use strict;
use Data::Dumper;
use Storable qw[freeze thaw];

my $hashref = { my=>'data' };
my $refA = \$hashref;
my $refB = \$hashref;

{
	my @frozen = map{ freeze $_ } $refA, $refB;

	my( $refA_thawed, $refB_thawed ) = map{ thaw $_ } @frozen;

	print Dumper $refA_thawed, $refB_thawed;
}


{
	my @data = ( $refA, $refB );
	my $frozen = freeze \@data;
	my $thawed = thaw $frozen;
	my ($refA, $refB) = @$thawed;
	print Dumper $refA, $refB;
}
__END__
$VAR1 = \{
            'my' => 'data'
          };
$VAR2 = \{
            'my' => 'data'
          };

$VAR1 = \{
            'my' => 'data'
          };
$VAR2 = $VAR1;