for my $n (@names) {
   print("$n, $hash{$n}\n");
}