#!/usr/local/bin/perl -w
use Data::Dumper;
@list = (4,9,3);
my @indicies = sort { print Dumper(\@a); $a[$a] <=> $a[$b] } 0..$#list;
print ("\n @indicies");

##</code><code>##

$VAR1 = [];
Use of uninitialized value in numeric comparison (<=>) at foo.pl line 4.
Use of uninitialized value in numeric comparison (<=>) at foo.pl line 4.
$VAR1 = [];
Use of uninitialized value in numeric comparison (<=>) at foo.pl line 4.
Use of uninitialized value in numeric comparison (<=>) at foo.pl line 4.

 0 1 2

##</code><code>##

$"=q;grep;;$,=q"grep";for(`find . -name ".saves*~"`){s;$/;;;/(.*-(\d+)-.*)$/;
$_=["ps -e -o pid | "," $2 | "," -v "," "];`@$_`?{print"+ $1"}:{print"- $1"}&&`rm $1`;
print$\;}