gistfile1.txt

$ cat z1
Q:PIR {
    $I0 = 1
  loop:
    unless $I0 <= 5000 goto done
    $P0 = root_new ['parrot';'Integer']
    $P1 = root_new ['parrot';'Integer']
    $P2 = root_new ['parrot';'Integer']
    $P3 = root_new ['parrot';'Integer']
    inc $I0
    goto loop
  done:
};
$ time ./perl6 z1

real	0m1.455s
user	0m1.320s
sys	0m0.100s
$ cat z2
Q:PIR {
    $I0 = 1
  loop:
    unless $I0 <= 5000 goto done
    $P0 = new ['Integer']
    $P1 = new ['Integer']
    $P2 = new ['Integer']
    $P3 = new ['Integer']
    inc $I0
    goto loop
  done:
};
$ time ./perl6 z2

real	0m2.242s
user	0m2.096s
sys	0m0.120s
$