my $divisor = (@pairs + length($dictionWord)-1);
    die "Uhoh - cannot divide by zero. List of pairs is '@pairs' and dictionWord is '$dictionWord'."
    my $bigramCoef = 2 * $matches / $divisor;