my %Cls = {'P','a','N','b','U','c'};
print %Cls.": \n\n";
while ( my ($k, $v) = each(%Cls) ) {
	print "$k => $v\n";
}

##</code><code>##

1/8: 

HASH(0x124290) =>