my %results = ();
my $position = 0;

while(...) {
    ...
    if(...) {
        $results{$uniqueID} = {
            ...
            'position' => $position++,

...
foreach (sort { $results{$a}->{'position'} <=> $results{$b}->{'position'} } keys %results) {
   ...