- or download this
use strict;
use warnings;
...
}
print "\n";
}
- or download this
my %hash =
(
...
USA => 'eagle',
China => 'Mao',
);
- or download this
use Tie::RangeHash;
tie my %rhash, 'Tie::RangeHash';
...
print $rhash{'second'},$/;
print $rhash{'China'},$/;