my %cardvals;
%cardvals{ @hand[0..4]<num> }++

##</code><code>##

# [234] of a kind
$score += [*]($_,$_-1) for %cardvals.values;

##</code><code>##

# Fifteens
if any( @hand<val> ) ~~ 5 && any( @hand<val> ) ~~ 10 {
    $score += 2 *
        ( grep -> $_<val> ~~ 5, @hand ) *
        ( grep -> $_<val> ~~ 10, @hand );
}

##</code><code>##

# Runs
SPAN: for 5 .. 3 -> $span {
    for 1 .. 11 -> $start {
        if all( @cardvals{ $start .. $start + $span } ) {
            $score += $span;
            last SPAN;
        }
    }
}

##</code><code>##

Hand = 2,3,3,4 5

2,3,4,5 = 4 points
2,3,4,5 = 4 points
        = 8 points total