Select Code to Download

use strict;
use warnings;
...
sub marriage {
    return join ' ', @_;
}

boy girl
boymonkey girlmonkey
boydog girldog

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