In addition to what jettero already said for printing a whole array, you still might be interested to know how to use said array in a for loop. Just a simple change to your code does the trick:

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