Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
print $_, " -> ", $count{$_}, "\n" foreach keys %count;

exit 0;

Select or download this
```
Be45 -> 3
Dh60 -> 2
Hm54 -> 1
```