foreach my $i ( 0..$#data ) {
    my $key = $data[i];
    
    # append '_' until no matching key exists.
    while ( exists $dataPos{$key} ) {
        $key .= '_';
    }
   
    $dataPos{$key} = $i;
    print "$key -- > $i\n";        
}