Знаю я эту ошибку.
Тока я сам допер =)
Когда ты набираешь в строке ввода blabla и жмешь Enter, то у тебя в переменную $a=<STDIN>; заносится "blabla/n" А это !eq "blabla"
Поэтому после $a=<STDIN>; делай chomp($a);
Так все будет работать.
З.Ы. chomp() обрезает /n =)