use Tie::Refhash;
tie %hash 'tie::RefHash';
%hash =( ["one","two"] => "numbers",
         ["pen","book"]=> "stationery");
while(my($keyref,$value)=each %h))
{
  print "@$keyref has $value\n";
}