Help for this page

Select Code to Download

Select or download this
```
    local $_;
```

Select or download this

      while (defined(my $d = <DATA>)){
        chomp $d;
        my ($str, $num) = split /\|/, $d;
        $hash_ref->{$str} = $num;
      }