Select Code to Download

use Data::Dump qw/ dd /;
{
...
    dd( \@blah );
}
__END__

    $blah[0]                  = new Array();
    $blah[0][$i]              = new Array();
    $blah[0][$i][$j]          = new Array();
    $blah[0][$i][$j][$k]      = new Object();
    $blah[0][$i][$j][$k].life = 42;