Das Split mit dem ";" gibt einen Syntax-Error, den Perl Dir allerdings auch schon gesagt haben müßte.

Ansonsten kannst Du einfacher über Arrays iterieren, indem Du anstelle der While-Schleifen es mit foreach machst