use strict;
use warnings;
use Time::HiRes qw(gettimeofday);

my($seconds, $microseconds);
my $index;

for (1..10) {
   ($seconds, $microseconds) = gettimeofday;
   $index = sprintf("%d%06d", $seconds, $microseconds);
   print "$index\n";
}