Entirely ridiculous JITing

$ time perl -Mblib -MPerl::JIT -e 'my $a=2;my $x; for (1..2e7) {$x = $a+3+$a*1.2+3 + ($a*3 - $a/12 + 2/$a);}'
real    0m2.149s
user    0m2.144s
sys     0m0.000s

$ time perl -Mblib -e 'my $a=2;my $x; for (1..2e7) {$x = $a+3+$a*1.2+3 + ($a*3 - $a/12 + 2/$a);}'
real    0m10.088s
user    0m10.065s
sys     0m0.000s