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