my $ar = ['pirate', 'ninja'];
my $arr = \$ar;
my $arrr = \$arr;

dumpomatic( $arrr );