for my $skip (0..$#names) { 
   print("-------\n");
   for my $i (0..$#names) {
      next if $i == $skip;
      my $n = $names[$i];
      print("$n, $hash{$n}\n");
   }
   print("* Note removal of element $skip\n");
   print("\n");
}