Loops with print (I used a NULL device to keep it clear, s.below):
              Rate foreach_loop   c_for_loop
foreach_loop 256/s           --          -8%
c_for_loop   278/s           8%           --

Loops with '1':
               Rate   c_for_loop foreach_loop
c_for_loop   1314/s           --         -22%
foreach_loop 1674/s          27%           --

##</code><code>##

#! perl
use strict;
use warnings;

use IO::Null;

=pod

PM Thread perlquestion [id://1021418]

=cut

use Benchmark qw( cmpthese );

my $n = 1e4;
my $null = IO::Null->new;
cmpthese
(
    10000,
    {
        foreach_loop => \&foreach_loop,
        c_for_loop   => \&c_for_loop,
    }
);

sub foreach_loop
{
    for my $i (-$n .. 0)
    {
 		# $null->print( -$i );
		1;
    }
}

sub c_for_loop
{
    for (my $j = $n; $j >= 0; --$j)
    {
		# $null->print( $j );
		1;
    }
}