sub foo(\%)
{
	my $h = shift;
	# do something with it...
	$h->{"FOO"} = "Hello, world!";
}