$ time perl -e 'for ($x=0; $x!=100_000_000; ++$x) {}'

real	0m2.448s
user	0m2.446s
sys	0m0.002s

$ time php -r 'for($x=0; $x!=100000000; ++$x){};'

real	0m1.570s
user	0m1.562s
sys	0m0.008s

##</code><code>##

$ perl -MO=Concise -e 'for ($x=0; $x!=100_000_000; ++$x) {}'
h  <@> leave[1 ref] vKP/REFC ->(end)
1     <0> enter ->2
2     <;> nextstate(main 1 -e:1) v:{ ->3
5     <2> sassign vKS/2 ->6
3        <$> const(IV 0) s ->4
-        <1> ex-rv2sv sKRM*/1 ->5
4           <$> gvsv(*x) s ->5
6     <0> unstack v* ->7
g     <2> leaveloop vK/2 ->h
7        <{> enterloop(next->9 last->g redo->8) v ->c
-        <1> null vK/1 ->g
f           <|> and(other->8) vK/1 ->g
e              <2> ne sK/2 ->f
-                 <1> ex-rv2sv sK/1 ->d
c                    <$> gvsv(*x) s ->d
d                 <$> const(IV 100000000) s ->e
-              <@> lineseq vK ->-
-                 <@> scope vK ->9
8                    <0> stub v ->9
a                 <1> preinc vK/1 ->b
-                    <1> ex-rv2sv sKRM/1 ->a
9                       <$> gvsv(*x) s ->a
b                 <0> unstack v ->c
-e syntax OK