foreach ( @htmlLines ) {
          # do stuff with $_
}

##</code><code>##

for my $i (0..@htmlLines-1)
{
  print $htmlLines[$i];
}