Select Code to Download

  foreach my $key (keys %hash) {
    print "$key $hash{$key}\n";
  }

  my %hash;
  my $file = 'filehere.txt';
...
    $hash{$_}++;
  }
  close(DATA);