use Data::Dumper;

$scalar = 0;
$hashref = {};
$arrayref = [$scalar, $hashref];
$hashref->{arrayref} = $arrayref;

print Data::Dumper->Dump([$arrayref, $hashref], [qw(arrayref hashref)]);