*immer*
benutzen.
(UseStrict)

dann hätte dich perl bei diesem script gewarnt. du schreibst einen vergleich mit einem einzigen
gleichheitszeichen. aber ein einziges gleichheitszeichen ist eine zuweisung? wie soll das
funktionieren? du willst doch nicht zuweisen, sondern vergleichen. was für ein buch nutzt du
zum perl-lernen?
in einem weiteren schritt hätte perl dich dann gewarnt, dass du strings mit == vergleichen willst.
das macht man stattdessen mit 'eq'.