50     my $words = shift;

     72             foreach my $word (@$words) {

     95             foreach my $word (@$words) {