foreach my $element(sort keys %myhash){
  printf OUT ("%-20s", $element);
  foreach (@{$myhash{$element}}){
    printf OUT ("%8s", $_);  
  }
  print OUT "\n";
}#foreach