#!/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");