my @scorearray = map { {score=>$_, text=>$hash{$_}} } keys %hash;


##</code><code>##

for my $word (@scoreWords) {
  my $qmword = quotemeta($word);
  my $regexp = qr/\b$qmword\b/;
  for my $scorebit (@scorearray) {
    $scorebit->{'score'} += 1 if $scorebit->{'text'} =~ $regexp;
  }
}


##</code><code>##

printf "%-7s%s\n", "Score", "Value";
for my $scorebit (@scorearray) {
  printf "%5d  %s\n", $scorebit->{'score'}, $scorebit->{'text'};
}


##</code><code>##

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/