for my $i (0..3){
      if ($pmis[$i] eq $o) {
        $cell = $pmilecsquare;
        last;
      }
    }