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