$Data::Dumper::Useqq = 1;
print Dumper \%hash;

##</code><code>##

for my $key (sort keys %hash) {
  printf "%-12s %s\n",$key,join ' ',@{$hash{$key}};
}