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