$t=time; 
$i=0; 
++$i for 1 .. 25e6; 
print time-$t;;
1.66395616531372