@keys = ("key1","key2,"key3","key4");
foreach $key (@keys) {
	print "$key\n";
	print "$hash1{$key} , \$hash1\n";
	print "$hash2{$key} , \$hash2\n";
	print "$hash3{$key} , \$hash3\n";
	print "$hash4{$key} , \$hash4\n\n";
}