The funny thing about the issue is that this worked OK:

my %funny;

foo(\%funny);

sub foo(\%)
{
    my $foo = shift;
    $foo->{"FOO"} = "BAR";
}
[download]

If foo was from a module, it didn't work.. But thanks, now I know.