sub fuzzyMatch {
    my( $rHay, $rNee, $misses ) = @_;
    ...