50     my @words = @{+shift};

     72             foreach my $word (@words) {

     95             foreach my $word (@words) {