use Devel::Peek;
$a[0] = 123;
Dump $a[0];
print "$a[0]\n";
Dump $a[0];