$counter =0;
foreach $elem (@array){
   print;
   $counter++;
}