What part are you having difficulty with? Read some docs:

• perlintro
• split
• Think "hash".

Write some code, and post again if you still have specific questions.