# works in package main; but not package Board;
  foreach my $queen1 (@queens) {
    LOOP: foreach my $queen2 (@queens) {
      next LOOP if $queen1->duplicate($queen2->location);
      $queen1->contested++ if $linear->($queen1->location, $queen2->location);
    }
  }