$VAR1 = undef;

Can't use an undefined value as a HASH reference at test.pl line 7.