for (@pmis){
      if ($_ eq $o) {
        $cell = $pmilecsquare;
        last;
      }
    }