Select Code to Download

use strict;
use warnings;
...
  }
  print "\n";
}

my %hash =
(
...
   USA    => 'eagle',
   China  => 'Mao',
);

use Tie::RangeHash;
tie my %rhash, 'Tie::RangeHash';
...

print $rhash{'second'},$/;
print $rhash{'China'},$/;