Select Code to Download

use warnings;
use strict;
...
foreach my $all (%$info) {
    print "$all\n";
}

sub test {
    my @name  = qw(Joe mary ann pete amy jerry);
...
    @email_of{@name} = @email;
    return \%email_of;
}