my %funny;

foo(\%funny);

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