my (%hash1, %hash2, %hash3);
my %hash_names = ( "%hash1" => "Hash One",
                   "%hash2" => "Hash Two",
                   "%hash3" => "Hash Three" );

##</code><code>##

&subroutine(\%hash1, "Hash One");

##</code><code>##

foreach $key (sort keys %hash_names) {
	&subroutine($key, $hash_names{$key});
}