$ perl -wle 'sub r{@t=times();push @out,qq{@t}} sub x{my $z; $z.=1 for 1..1_000_000;} r; x; r; x; r;print for @out'
0 0 0 0
0.17 0 0 0
0.29 0 0 0