[evdb@desktop evdb]$ perl test.pl 
Use of uninitialized value in string eq at test.pl line 7.