@timestamps = sort (@timestamps);
$unique[0] = $timestamps[0];
foreach my $stamp(@timestamps) {
  unless ($stamp eq $unique[$counter]) {
    push (@unique, $stamp);
    $counter++;
  }
}

##</code><code>##

my %unique;
@unique{@timestamps} = ();
my @unique = keys %unique;