for(my $i = 0; $i < 3;$i++)
   {
      if(...)
      {
         ...
      }
      elsif($i == 2)

##</code><code>##

for (my $j = 0; $j < 4; $j++)
     {
        my $file = $files[$j];
        ...

##</code><code>##

for my $file (@files)
{
    ...