my %a = map { $a{ $a{ $a{ $a{ $a{ $_ } } } } } => 1, 0..5 } 0..9;
print Dumper sort(\%a);