Hockey

# A list of hockey teams - lists start with "@", variables start with "$"
my @teams = qww<Jets Leafs Sharks Penguins Capitals Oilers Wild "Red Wings">;
say "Teams that start with R or P";
for @teams -> $team { say "* $team" if $team ~~ /^R||P/ };

# Example of a subroutine 
sub is_canadian(@list) { 
    for @list -> $elem { 
        given $elem { 
            say "- $_ are Canadian"
            when /Jets|Leafs|Canadien|Oilers|Flames|Canucks|Senators/ 
        }
    }
}
say "\nRun our is_canadian() subroutine with \"@teams\" as the argument ..." ;
is_canadian(@teams)