Select Code to Download

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

my %test = { record => ' ' };