Help for this page
for(my $i = 0; $i < 3;$i++) { ... ... } elsif($i == 2)
for (my $j = 0; $j < 4; $j++) { my $file = $files[$j]; ...
for my $file (@files) { ...