@list = sort { $a = 1; } @list;