I am new in perl and seeking for code to do my assignment

Hi, read perlintro, open, readline, chomp, eq

See also How do I post a question effectively?/Is PerlMonks a good place to get answers for homework?