Select Code to Download

my %newHash = ("key1","value1","key2","value2");

print "Keys: ", join ' ', keys %newHash, "\n";
print "Values: ", join ' ', values %newHash, "\n";
print "Keys and values: ", join (' ', map {"$_ $newHash{$_}"} keys %ne
+wHash), "\n";

Keys: key2 key1 
Values: value2 value1 
Keys and values: key2 value2 key1 value1