Select Code to Download

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

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