use strict;
use warnings;

use List::MoreUtils qw/pairwise/;

my @rray1 = qw/ boy  boymonkey  boydog  /;
my @rray2 = qw/ girl girlmonkey girldog /;

our( $a, $b );

my @married 
    = pairwise{ marriage( $a, $b ) } @rray1, @rray2;

print "$_\n" for @married;


sub marriage {
    return join ' ', @_;
}

##</code><code>##

boy girl
boymonkey girlmonkey
boydog girldog

##</code><code>##

my @married = map{ marriage( $rray1[$_], $rray2[$_] ) } 0 .. $#rray1;