Use of uninitialized value $val in hash element at ./test.pl line 23.