Dein Fehler liegt in der Zeile if( undef $count ). Du leerst die Variable $count (undef ist ein Befehl) und das undef $count liefert "unwahr" zurück. Deswegen wird nie in den if-Block gegangen. Aber das $count ist *jedesmal* undef.

Du willst hier wohl eher

if( not defined $count )

machen.

Das überprüft nur, ob $count definiert ist oder nicht...