local $_;

##</code><code>##

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