foreach $number (sort {$a <=> $b} (keys(%name))) {