• Loop through your input file lines one at a time. See perlintro -> Files and I/O
• Use a regular expression to find the sequence lines: perlre, and store the seq in a scalar variable.
• Assign the other lines as hash values: perldata, perldsc

Write code, and if you still have detailed questions, post them here.