use Devel::Peek;
print "a:\n"; Dump($a); 
print "b:\n";Dump($b); 
print "c:\n";Dump($c); 
print "d:\n";Dump($d);