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