$check = Data::Dumper->new([$old],[qw(old)])->Purity(1)->Dump