The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/pugs

use v6;

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

my $threshold = 70;

sub authorize_movie(@grade) {
  if (one(@grade) < $threshold) {
    say 'you may go to the movies';
  } else {
    say "sorry you had more than one grade below $threshold";
  }
}

sub load_grades {
  qw(50 80 90);
}

my @grade = load_grades();
authorize_movie(@grade);