Select Code to Download

perl -MData::Dumper -le '
my $ref = []; 
...
} 
print Data::Dumper->Dump( [ \$temp, ], [ qw( *temp ) ] );
'

$ref = \[
           {
...
              'id' => 'c'
            }
          ];