{
  my $hash_ref;
  BEGIN {
    while (<DATA>){
      chomp;
      my ($str, $num) = split /\|/;
      $hash_ref->{$str} = $num;
    }
  }
  sub get_number{
    my ($num) = @_;
    return $hash_ref->{$num};
  }
}