open(TEST, ">test.txt") || die "File couldn't be opened for writing: $!";
foreach my $key (sort keys %test) {
  print TEST (join '|', ($key,@{$test{$key}});
  print TEST "\n";
} 
close(TEST);