..
use Data::Dumper;
use Devel::Peek;
..
print $d->Dump;

Dump($ar[0]);
Dump($ar[1]);
Dump($ar[2]);