c:\test>perl -MDevel::Size=total_size -MStorable=dclone,store 
-E"$#AoH=5e3; $AoH[$_] = dclone \%ENV for 0..$#AoH-1; <>; 
print total_size( \@AoH ); store \@AoH, 'junk.dat'; <>"
9555355

c:\test>dir junk.dat
10/04/2010  13:20         9,090,025 junk.dat

##</code><code>##

c:\test>perl -MDevel::Size=total_size -MStorable=dclone,retrieve 
-E"$AoH = retrieve 'junk.dat';<>;print total_size( $AoH );<>"
9842331