Select Code to Download

use strict;
use warnings;
...
    }

print "$_\t$max{$_}\n" for sort { $a <=> $b } keys %max;

$ perl test.pl
1       4
2       7
3       10
$