Perl script for renaming files in a directory based on a list.

I need a simple Perl script that can tackle the following problem. 1. I have a directory, SomeDirectory, with files in it. The files are names either by a person's name, "Smith,John.jpg" or by an ID number, "800031245.jpg". 2. I have a csv file with 3 columns: Last Name, First Name, and ID number. 3. I need the perl script to get the filename of each file and find out if it matches any row in the list, either by first and last name, or by ID number. If it finds a match, the file should be renamed "LastName, FirstName - ID.jpg". For example, if it finds a file named "Doe, Jane.jpg", and there is a Jane Doe on the list who has a user ID 800023452, it should rename the file to "Doe, Jane - 800023452.jpg". If it finds a file named "80002345.jpg", and there is a 80002345 user ID on the list for "John Doe", it should rename the file "Doe, John - 80002345.jpg" 4. When the script is done, all files that it finds a match to should be renamed to the "Lastname, Firstname - ID.jpg". First letter capitalized on first and last name, no matter what the original capitalization is. 5. One snag - there may be duplicates. If a duplicate is found, the script should ignore/delete the duplicate.