my %newHoA   = (   
       "Sports"    =>  ["Soccer","UltimateFrisbee","Basketball"],
       "Books"     =>  ["Cannery Row", "Animal Farm", "East of Eden"],
       "Places"    =>  ["BigSur","Zion", "CrateLake"] );

foreach my $keyHoA (<sort goes here> keys %newHoA) {
       
 print "The key is: $keyHoA" . " And one value is: $newHoA{$req}[0]" . "\n";

}