foreach $i (@Array_1) {

       $n = grep {$Array_2[$_] == "$i"} 0 .. $#Array_2;
       push(@m, $n);

}