is there a way to not write the for loop but substitute it with a foreach loop or not?

I don't really understand the question, but an answer to a literal interpretation of it is that in Perl, for-loops and foreach-loops are synonymous in (almost!) every case:

c:\@Work\Perl\monks>perl -wMstrict -le
"foreach (my $i = 2;  $i < 10;  $i += 3) { printf qq{$i }; }  print ''
+;
 for     (my $i = 2;  $i < 10;  $i += 3) { printf qq{$i }; }  print ''
+;
 ;;
 foreach my $i (2 .. 5) { printf qq{$i }; }  print '';
 for     my $i (2 .. 5) { printf qq{$i }; }  print '';
 ;;
 printf qq{$_ } foreach 6 .. 9;  print '';
 printf qq{$_ } for     6 .. 9;  print '';
"
2 5 8
2 5 8
2 3 4 5
2 3 4 5
6 7 8 9
6 7 8 9
[download]

The only case in which an initialize/test/finalize (or C-style) for/foreach loop cannot be used is the statement modifier form: something like
    printf qq{$i } for (my $i = 2;  $i < 10;  $i += 3);
will not fly.