Use of uninitialized value in string eq at perl-assoc.pl line 64.