my $count = scalar @words;  
# style pointer: it is a $count not a $Counter