my @rray1 = qw/boy boymonkey boydog/;
my @rray2 = qw/girl girlmonkey girldog/;
while( my ( $i, $v ) = each @rray1 ){
    print " $v => $rray2[$i]\n";
}
__END__
 boy => girl
 boymonkey => girlmonkey
 boydog => girldog