use strict;
use warnings;
use Math::BigFloat;
use Time::HiRes qw(gettimeofday sleep nanosleep);

...

sub old_script {
	my $max = $_[0];
	my @time_test;
	my $start = time();
	for (my $i = 0; $i < $max; $i++) {
		$start += 1;
		sleep $start - time();
		$time_test[$i] = Math::BigFloat->new(sprintf("%d.%06d", gettimeofday));
	}
	return @time_test;
}

sub new_script {
	my $max = $_[0];
	my @time_test;
	for (my $i = 0; $i < $max; $i++) {
		nanosleep (1000000000);
		$time_test[$i] = Math::BigFloat->new(sprintf("%d.%06d", gettimeofday));
	}
	return @time_test;
}