völlig unlesbarer code.
sowas schau ich mir nur gegen bezahlung an (also z.b. im täglichen job)
=)

einrückung, sprechende namen und ab und an ein hilfreicher kommentar wirken wunder.
Bitte mal beispielsweise Modern Perl - The Book lesen, zu finden hier: http://perl-tutorial.org/