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

##</code><code>##

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

##</code><code>##

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