Help for this page
use strict; use warnings; my $data=[]; ... use Data::Dumper; print Dumper($data);
$VAR1 = [ { ... 'code' => 'YYK' } ];