use Time::HiRes qw( time sleep );

my @times = map { time } 0..200;
#my @times = map { sleep(0.001); time } 0..200;

my @time_diffs = map { $times[$_] - $times[$_-1] } 1..$#times;

$, = "\n";
$\ = "\n";
print @time_diffs;