Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
for my $k (keys %mapping) {
    print "$k\t$mapping{$k}\n";
}

Select or download this
```
bar     1
foo     0
```