use Data::Dumper;

$arrayref1 = [1, 2, 3];
$arrayref2 = [4, 5, 6];

print Data::Dumper->Dump([$arrayref1, $arrayref2], [arrayref1, arrayref2]);