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

##</code><code>##

  my %hash;
  my $file = 'filehere.txt';
  open(DATA, "$file") || die "Can not open: $!";
  while (<DATA>) {
    chomp($_);
    $hash{$_}++;
  }
  close(DATA);