my @vector = qw( 27 32 46 5 102 76 );
my @order = sort{ $vector[ $a ] <=> $vector[ $b ] } 0 .. $#vector;
print @vector[ @order ];
5 27 32 46 76 102