EEK!

foreach $word(@words){
$Counter = $Counter+1;
#print("$word\n");
}
[download]

don't do that - if you want to know how many elements are in an array, just get it's value in SCALAR context:

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

If you want to know what the index of the last element is, you can subtract 1 from $count or better yet:

# not very useful
my $last = $#words;

# very useful
for(0..$#words) {  ...  }
[download]

</code>

Jeff

R-R-R--R-R-R--R-R-R--R-R-R--R-R-R--
L-L--L-L--L-L--L-L--L-L--L-L--L-L--