use strict;
use warnings;

my $info = test();

for my $name (sort keys %$info) {
    printf "%-10s %s\n", "$name:", $info->{$name};
}


sub test {
    my (@names_all, @email_all);
    my @names = qw(Joe mary ann pete amy jerry);
    my @email = qw(joe@test.com mary@test.com ann@nowhere.com
        pete@here.com amy@ok.com jerry@b.com);
    my %emails;

    @emails{@names_all} = @email_all;
    @emails{@names}     = @email;
    return \%emails;

}

##</code><code>##

Joe:       joe@test.com
amy:       amy@ok.com
ann:       ann@nowhere.com
jerry:     jerry@b.com
mary:      mary@test.com
pete:      pete@here.com