Select Code to Download

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

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

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