No intermediate hash necessary:

use List::MoreUtils qw( zip );

sub test {
    my @name  = qw( Joe mary ann pete amy jerry );
    my @email = qw( joe@test.com mary@test.com ann@nowhere.com pete@he
+re.com amy@ok.com jerry@b.com );
    return zip @name, @email;
}
[download]

See List::MoreUtils (mesh or its alias zip). This is also built into Perl6 as (I think), the Z operator.

use warnings;
use strict;

sub test {
    my %email_of;
    my @name  = qw(Joe mary ann pete amy jerry);
    my @email = qw(joe@test.com mary@test.com ann@nowhere.com pete@her
+e.com amy@ok.com jerry@b.com);

    for my $i (0 .. $#name) {
        $email_of{$name[$i]} = $email[$i];
    }
    return \%email_of;
}

my $info = test();
foreach my $all (%$info) {
    print "$all\n";
}
[download]

Even fancier (see perldata):

sub test {
    my @name  = qw(Joe mary ann pete amy jerry);
    my @email = qw(joe@test.com mary@test.com ann@nowhere.com pete@her
+e.com amy@ok.com jerry@b.com);

    my %email_of;
    @email_of{@name} = @email;
    return \%email_of;
}
[download]

There are lots of ways this could go and a best answer depends a lot on the bigger picture. In the context of the narrow picture shown using a hash slice or two is the easy way to populate a hash:

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;

}
[download]

Prints:

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

Hi, I hope someone will get to this still, I have a similar problem and my question is, what if some of these elements are repeated what would be the best way to return these values?


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 Joe ann);
    my @email = qw(joe@test.com mary@test.com ann@nowhere.com
        pete@here.com amy@ok.com jerry@b.com joe@test.com ann@nowhere.
+com);
    my %emails;

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

}
[download]


Thanks!

It depends on why you have "repeated elements". If you have multiple people with the same name then you probably need to use an ID code as the hash key instead of the name. If you have multiple email addresses per person then the value becomes an array instead of a single value and you can thus track all the addresses.

True laziness is hard work

remember a hash can be converted to an array, and vice versa, as long as it is in the order of Key, Value, Key, Value, you can return your array and get the return value as a hash.