Wofür brauchst Du das "Switch"? Ich würde empfehlen, entweder Perl 5.10 zu verwenden, dort gibt es "given-when" und das funktioniert. Oder wenn Du bei einer vorherigen Perl-Version bleibst (bleiben musst), dann würde ich auf if-else-Anweisungen zurückgreifen. Switch ist buggy!

Lies Dir auch mal mein Kommentar zu havis Antwort durch!

Außerdem brauchst Du da kein while(<>) (beim Schreiben). Du musst das "printf" in die Datei machen...