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

%rhash =
(
   'first,second,third' => 1,
   'Canada,USA,China'   => 2,
);

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