Select Code to Download

my @names = qw( Alice  Bob      Eve );
my @roles = qw( sender receiver evesdropper );
...
for my $i (@lookup) {
   print("$names[$i]: $roles[$i]\n");
}