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