for(my $i = 0; $i <= $#Sort_by; $i++) {
  push @{$sort{$Sort_by[$i]}} = $i;
}

for $key (sort { sort code } keys %sort) {
  for(@{$sort{$key}}) {
     print "Index: $_ - Data: $key\n";
  }
}