Hi everyone..I am a perl newbie..I have a tab delimited text file with two columns. Now I am trying to make a code that will append the text file after taking user input. But it should check the whole for duplicates. If duplicates found, it doesn't append. if there's no duplicate, then it appends. Please note that it only check the first column for duplicate. Here's the code I have written. Currently, it only checks the first row. And if duplicate is found, it shows a message like "Found match" and also appends the duplicates. I have attached my text file also. The code is:

Your attached text file has several duplicates of 'dey'. Does this mean that it should never be appended to? My version 0.0 assumes that it does. Are 'names' different if they differ only in case or surrounding whitespace. Version 0.0 assumes that they are different. If you are not using ActiveState perl, you will have to replace the prompt module with one that works on your system.