did la 0.001
did bruja 0.001
did verde 0.001
not Maria 0.001
Mary Maria 0.8
Mary no 0.001
Mary dio 0.001
Mary una 0.001

##</code><code>##

sub probability
{
    my (%hash, $source, $target) = @_;
    return $hash{$source}{$target};

}

my $test = &probability(%hash, $hash{Mary}, $hash{Mary}{Maria});
print "$test\n";