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 %newHash), "\n";