I need to build a hash with unixtime keys and eliminate duplicates without losing entries
why do you need to remove duplicates in the first place? Is this so that you can use them as a hash key? One simple way to do that is to append a number in the key to make them unique: 
use Data::Dump qw(pp);

my @array = qw<1000 1000 1000 1010 1010 1010 1020 1022 1023>; 
my %out; 
while (my ($pos, $val) = each @array) 
{ 
  $out{$val.':'.$pos} = { One => 1, Two => 1 }; 
}

pp \%out;

__END__
{
  "1000:0" => { One => 1, Two => 1 },
  "1000:1" => { One => 1, Two => 1 },
  "1000:2" => { One => 1, Two => 1 },
  "1010:3" => { One => 1, Two => 1 },
  "1010:4" => { One => 1, Two => 1 },
  "1010:5" => { One => 1, Two => 1 },
  "1020:6" => { One => 1, Two => 1 },
  "1022:7" => { One => 1, Two => 1 },
  "1023:8" => { One => 1, Two => 1 },
}

[download]
You can still access the timestamp by splitting the keys.

Here's another method, where you remove precision from the timestamp to replace it with an index (in my example below, with a precision of 10, I remove the last digit to replace it with a value between 0 and 9). 

my %out;
my %index;
my $precision = 10;
for my $val (@array)
{
  my $rounded = $precision*(int($val/$precision));
  die "Too many duplicates" if exists $index{$rounded} and $index{$rou
+nded} == $precision;
  my $timestamp = $rounded + $index{$rounded}++;
  $out{$timestamp} = { One => 1, Two => 1 };
}

pp \%out;
__END__
{
  1000 => { One => 1, Two => 1 },
  1001 => { One => 1, Two => 1 },
  1002 => { One => 1, Two => 1 },
  1010 => { One => 1, Two => 1 },
  1011 => { One => 1, Two => 1 },
  1012 => { One => 1, Two => 1 },
  1020 => { One => 1, Two => 1 },
  1021 => { One => 1, Two => 1 },
  1022 => { One => 1, Two => 1 },
}

[download]
It won't work when there are too many timestamps that round down to the same value though (eg, if you remove the last two digits, you can't have 100 times the same value) and will change a value even if it was already new (1022 and 1023 became 1021 and 1022). On the other hand it's a single loop rather than two nested loops.

In reply to Re: goto HACK by Eily
in thread goto HACK by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.