#!/usr/bin/perl -w
use strict;

my (@newa, %hash, @sortedlist, @sortedindex);

@newa = ('t', 'd', 'z', 'x'); 
@hash{@newa}=(0..$#newa);
@sortedlist=sort @newa;
@sortedindex=@hash{@sortedlist};
print "@sortedindex\n";
print "@newa[@sortedindex]\n";


##</code><code>##

1 0 3 2
d t x z