Select Code to Download

for my $name ( keys %hash ) {
  my $count = 0;
...
    print "$name $entry $count\n";
  }
}