= ist die Zuweisung. Du musst stattdessen eq verwenden.

Falls du perl5.10 zur Verfügung hast, kannst du auch given ... when verwenden.