my @names = qw(Horst Hugo Anna Erwin Otto); # Hugo auf [1]
# erstelle einen Index vor dem Sortieren
my %idx = ();
@idx{@names} = 0..scalar @names - 1;

for my $name (sort @names){
    printf("Name: %s, Index: %s\n", $name, $idx{$name});
}

Name: Anna, Index: 2
Name: Erwin, Index: 3
Name: Horst, Index: 0
Name: Hugo, Index: 1
Name: Otto, Index: 4

use List::MoreUtils qw{firstidx};
my $idx = firstidx { $_ eq $org[23]} @sorted;