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