Select Code to Download

#!/usr/bin/perl -w
use strict;
...
@sortedindex=@hash{@sortedlist};
print "@sortedindex\n";
print "@newa[@sortedindex]\n";

1 0 3 2
d t x z