use Devel::Peek;
$x = [];
Dump($x, 1);
$x = undef;
$x = [];
Dump($x, 1);