Help for this page

Select Code to Download

Select or download this

use strict;
use warnings;
...
for my $guy (keys %marriages) {
    print "$guy - $marriages{$guy}\n";
     }

Select or download this
```
Dick - Mary
Harry - Pamela
Tom - Jane
```