my @li = map{ $_->[0] }sort{ $a->[1] cmp $b->[1] } map{[$_, crypt($_,$$)]} (1..9);
print "@li";