use Time::HiRes qw(time); my @times;