>perl -wMstrict -le
"my @rray1 = qw/boy  boymonkey  boydog/;
 my @rray2 = qw/girl girlmonkey girldog/;
 ;;
 use List::MoreUtils qw(pairwise);
 use vars qw($a $b);
 my @unions = pairwise { [ $a, $b ] } @rray1, @rray2;
 ;;
 use Data::Dumper;
 print Dumper \@unions;
"
$VAR1 = [
          [
            'boy',
            'girl'
          ],
          [
            'boymonkey',
            'girlmonkey'
          ],
          [
            'boydog',
            'girldog'
          ]
        ];

##</code><code>##

>perl -wMstrict -le
"my @guys = qw/boy  boymonkey  boydog/;
 my @gals = qw/girl girlmonkey girldog/;
 ;;
 my @unions;
 for my $guy (@guys) {
   push @unions, [ $guy, shift @gals ];
   }
 ;;
 use Data::Dumper;
 print Dumper \@unions;
"
$VAR1 = [
          [
            'boy',
            'girl'
          ],
          [
            'boymonkey',
            'girlmonkey'
          ],
          [
            'boydog',
            'girldog'
          ]
        ];