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