Use of uninitialized value $a in numeric eq (==) at test.pl line 7.