@list = 1 .. 4;
print sort { $a != $b } @list;
# == 4321