DB<100> use warnings; $a eq "a" Use of uninitialized value $a in string eq at ...