my @array=('C','B','A','C');
my %hash=();
for(my $i=0;$i<scalar(@array);$i++){
    $hash{$i}=$array[$i];
}

@array=sort @array;
my %found=();
my @sorted_indexes=();
foreach my $k(sort {$a <=> $b } keys %hash){
   for(my $i=0;$i<scalar(@array);$i++){
      if($array[$i] eq $hash{$k} && !exists($found{$hash{$k}}){
         print $hash{$k}."-> Former: ".$k." Latter: ".$i."\n";
         $found{$hash{$k}}=1;
         push(@sorted_indexes,$i);
      }
   }
}