Hi Monks,
I would like to make and return a hash instead of returning two arrays, using the sample code below to illustrate my issue
how can I do this, and how would I print this hash like I am printing it using the array in my sample code?
...
sub test {
my (@names_all, @email_all);
my @name = qw(Joe mary ann pete amy jerry);
my @email = qw(joe@test.com mary@test.com ann@nowhere.com pete@here.co
+m amy@ok.com jerry@b.com);
foreach $names(@names) {
push @name_all, $names;
}
foreach $emails(@email) {
push @email_all, $emails;
}
# need to make a hash instead of sending two arrays, how??
#return \@name_all, \@email;
return \@name_all;
}
my $info = test();
foreach my $all(@$info) {
print "\n$all\n";
}
...
Thanks a lot!