Select Code to Download

for (<>) {
     chomp;
...
for (sort { <=> } keys %total) {
     print "$_ = $total{$_}\n";
}

-- 
Joost       downtime n. The period during which a system
            is error-free and immune from user input.