foreach (keys %results) {
   print "Results for column $_:\n";
   foreach (@{$results{$_}}) {
     print " $_\n";
   }
}