use Data::Dumper;
$Data::Dumper::Purity=1;