my @names = qw( Alice  Bob      Eve );
my @roles = qw( sender receiver evesdropper );

my @lookup = sort { $names[$b] cmp $names[$a] } 0..$#names;

for my $i (@lookup) {
   print("$names[$i]: $roles[$i]\n");
}