Read through these docs:

• Perl Babysteps 1: Your First Simple Script shows how to read from a prompt.
• perlsyn shows how to use loops.
• perlintro shows a lot of other basics.

Write some code. If you have problems, post what you have tried and what problems you have.