use Tie::IxHash;

tie my %h, 'Tie::IxHash';
%h = ( Sports =>  ["Soccer","UltimateFrisbee","Basketball"],
       Books  =>  ["Cannery Row", "Animal Farm", "East of Eden"],
       Places =>  ["BigSur","Zion", "CrateLake"] );

print "$_\n" for keys %h;