if( grep { $a == $a[$_] && $b eq $b[$_] } 0 .. $#a ) {
  # do stuff here
}

##</code><code>##

if( first { $a == $a[$_] && $b eq $b[$_] } 0 .. $#a ) {
  # do stuff here
}