Wer als AnfängerIn nicht am Anfang des Codes folgendes einfügt:
use strict;
use warnings;
use diagnotics; # erweiterte Ausgabe von Warnungen

erzeugt meist lauffähigen, aber oft schlampigen Code.
Dabei sagt doch Perl gern, was nicht stimmt.

@Gast
bau das in deinen Originalcode ein und Perl sagt dir, was du falsch machst.