foreach $line (@{$results{$key}}) {
  print "\t$line\n";
}