for each $line ($results{$key}) {
    print "\t$line\n";
  }