Select Code to Download

#!/usr/bin/perl -- 

...
    printf "%10s %10s %10s\n", 'value', 'size', 'total_size'; 
    printf "%10s %10d %10d\n",$_, size($h{$_}),total_size($h{$_}) for 
+sort keys %h;
}

     value       size total_size
  !!!undef     660026    1420026
...
     sv_no     660026    1400026
    sv_yes     660026    1420026
     undef     660026     900026

     value       size total_size
  !!!undef     660014    1540014
...
     sv_no     660014    1540014
    sv_yes     660014    1540014
     undef     660014     980014