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/3 if you rename/move this file.

my @oldval  = (5, 8, 12);
my @newval1 = (17, 15, 14);
my @newval2 = (15, 7,  20);

if (any(@newval1) < any(@oldval)) {
  say "at least 1 newval1 is less than oldvals";
}

if (any(@newval2) < any(@oldval)) {
  say "at least 1 newval2 is less than oldvals";
}