Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;
...
for my $name (@foo) {
    print "$name : $bar{$name} \n" if exists $bar{$name};
}

Select or download this
```
tom : 54
steve : 56
roger : 99
```