#!/usr/bin/perl -w

use strict;
use Storable;
use Data::Dumper;


my %junk = map { $_ => rand()} (1..50);
my $before = Data::Dumper->Dump([%junk]);
my $frozen = Storable::freeze(\%junk);
my %thawed = %{Storable::thaw($frozen)};

print "THEY MATCH\n" if $before eq Data::Dumper->Dump([%junk]);