Select Code to Download

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

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

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