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