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

Then you can do stuff like the following to see the results:

for my $i ( 0 .. $#list_order ) {
    print "$stuff_list[$list_order[$i]]\n";
}
[download]

or

print join( "\n", @stuff_list[@list_order] ), "\n";
[download]