50     my @words = @{+shift};

     72             foreach my $word (@words) {

     95             foreach my $word (@words) {

##</code><code>##

     50     my $words = shift;

     72             foreach my $word (@$words) {

     95             foreach my $word (@$words) {


##</code><code>##

    118         substr((my $pat = $word), $i, 1) = '.';

##</code><code>##

    118         substr my $pat = $word, $i, 1, '.';