I can see you are either new to programming or being paid per line of code.
To improve, you need to master the art of abstraction.
When you find yourself repeating the same code over and over again,
stop and think about how you might avoid that nasty duplication.
Based on your sample program, you don't need to get that fancy,
just need to master the basics: functions, loops, arrays and hashes. See also:
As for learning Perl, take a look at learn.perl.org and Perl Tutorial Hub.
Also, be sure to refer to the
Perl online documentation.