>>348
print map { "$_\n" } sort {
　　$a !~ /^\d+$/ <=> $b !~ /\d+$/ ||
　　$a <=> $b ||
　　$a cmp $b
} keys %test;