Select Code to Download

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

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

    for (@pmis){
      if ($_ eq $o) {
...
        last;
      }
    }