Select Code to Download

${${${$_[0]}[0]}[1]}{"dog"} = 15;

#! /usr/bin/perl

...
$data->[0][0][0]{dog} = 15;

print Dumper $data;

$VAR1 = [
          [
...
            ]
          ]
        ];