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";
}

##</code><code>##

1290951829553400
1290951829553437
1290951829553448
1290951829553457
1290951829553467
1290951829553477
1290951829553487
1290951829553496
1290951829553505
1290951829553515