my $index = 0; foreach (@logme) { print "%%%% $index $_ %%%% "; print "################## IN THE LOOP ##########"; print OUTFILE2 $_; print 0UTFILE2 "*********IN_THE_LOOP********"; $index++; } print OUTFILE2 " OUTFILE2_IS_GOOD ";