弱弱地问：Pleac-Perl中multihash_delete怎么用？

Pleac-Perl中关于hash有这样一个函数：
sub multihash_delete {
    my ($hash, $key, $value) = @_;
    my $i;

    return unless ref( $hash->{$key} );
    for ($i = 0; $i < @{ $hash->{$key} }; $i++) {
        if ($hash->{$key}->[$i] eq $value) {
            splice( @{$hash->{$key}}, $i, 1);
            last;
        }
    }

    delete $hash->{$key} unless @{$hash->{$key}};
}
不知道该怎么用，有人能给个简单的使用例子么？谢谢

$hash{aaa} = "bbb";
$key = "aaa";
$value="bbb";
multihash_delete(\%hash,$key,$value);

大概像这样