use strict;
my @vector = qw( 27 32 46 5 102 76 );
my @order = sort{ $vector[ $a ] <=> $vector[ $b ] } 0 .. $#vector;
 
my $i = 1;
my @order_it;
foreach (@order) {
   $order_it[$_] = $i++;
}
print join(' ',@order_it),"\n";
print "@vector[ @order ]\n";