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