my $count = 0;
my $test;
unless ( exists $hash{$test} ) {
    $hash{$test} = $count++;
}

##</code><code>##

sort { $hash{$a} <=> $hash{$b} } keys %hash;