Select Code to Download

use List::MoreUtils qw( zip );

...
    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;
}