The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use v6-alpha;

# Please remember to update t/examples/examples.t and rename
# examples/output/junctions/all-all if you rename/move this file.

my @pacific  = <800 720 600 511>;
@pacific     = <715 550 411>;

my @atlantic = <400 420 300 211>;

if (all(@pacific) > all(@atlantic)) {
  say "every team in division 1 has a higher win percentage that division 2";
} else {
  say "some team in division 2 is outdoing a division 1 team";
}