elsif (foreach (@pmis) {if ($_ eq $outdate{$key1} && $lec eq $outdate{$key1})}){
   ........ 
 }