for my $key (keys %hash){
  print $key, ' => ', join ' , ', @{$hash{$key}}; # dereference sub-array
  print "\n";
}