$ perl -MDevel::Size=:all -le "  @F = 1 .. (5 * 30 * 1024 ); @F{@F}=@F; print total_size($_) for \@F, \%F "
6758436
13225503