my $son = '{        
}';
my $r=decode_json($son);#cannot understand why I need to do


$r->{"trans2"}[0]="90";
$r->{"trans2"}[1]="20";
print "\n\n";

#print Dumper \$r; # without dumper, how can I iterate using for loop?

print $r->{"trans2"}[0],"\n"; #hard coded
print $r->{"trans2"}[1],"\n"; #hard coded