Help for this page

Select Code to Download

Select or download this

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

Select or download this
```
1/8: 

HASH(0x124290) =>
```