Reference found where even-sized list expected at ./875882.pl line 7.
$VAR1 = {
          'record' => {
                        'a' => 11,
                        'b' => 22
                      },
          'HASH(0x604290)' => undef
        };