@list_order = sort { $stuff_list[$a] cmp $stuff_list[$b] } 0 .. $#stuff_list;