Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w

my @array = qw(1 hello 2 hello 3 hellome 4 hellothere);
...
foreach( values %hash ) { s/hello/hi/g; }

print +("$_ = $hash{$_}\n") for (sort keys %hash);

Select or download this
```
1 = hi
2 = hi
3 = hime
4 = hithere
```