p6.p6

my @cards = (2, False), ('Jack', False), ('Ace', True), ('Ace', False);

for @cards -> ($face, $aces-high) {
    my $value = do given ($face, $aces-high) {
        when (/^\d+$/, $)   { +$face } # 2..10
        when ('Ace', :so)  { 11 }      # aces high
        when ('Ace', :!so) {  1 }      # aces low
        default             { 10 }      # face card
    }

    put "$face ($aces-high) = $value";
}