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