Help for this page

Select Code to Download

Select or download this


#! /usr/bin/perl
...
while (($key,$value)= each (%hash1)){
print "$key =$value\n"};

Select or download this
```
key5 =value5
key2 =value2
key1 =value1
```