my @sorted = sort {sprintf ('%09d', $a) cmp sprintf ('%09d', $b)} keys %jetsons;