use Storable qw(store retrieve freeze thaw dclone);

%color = ('Blue' => 0.1, 'Red' => 0.8, 'Black' => 0, 'White' => 1);

$str = freeze(\%color);
printf "Serialization of %%color is %d bytes long.\n", length($str);