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});
}