%count = ();
    foreach $element (@words) {
    $count{$element}++;
    }

  while ( ($k,$v) = each %count ) {
    print "$k => $v\n";
  }