sub calc_score {
    my @chars = split //, shift;

    my $val = 0;
    $val += $worth{ $_ } for @chars;

    $val += 50 if @chars == 7;

    my $bonus = 0;

    for ( @dl ) {
        $bonus += $worth{ $chars[ $_ - 1 ] } if $chars[ $_ - 1 ];
    }

    for ( @tl ) {
        $bonus += 2 * $worth{ $chars[ $_ - 1 ] } if $chars[ $_ - 1 ];
    }

    $bonus += $val if $dw;
    $bonus += 2 * $val if $tw;

    return $val + $bonus;
}