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

##</code><code>##

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

##</code><code>##

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