Select Code to Download

#!/usr/bin/perl

...
 my ($data) = {$var1, $var2, $var3};

 print Dumper $data;

$VAR1 = {
          'ARRAY(0x14bd858)' => [
...
                                ],
          'ARRAY(0x14cb430)' => undef
        };

$VAR! = [
         {
...
         'total' => '51.00',
       }
     ];