print IO Data::Dumper->new([$data],[$name])->Indent(2)->Quotekeys(0)->Dump if $name;

##</code><code>##

wantarray ? return @file : return join '', @file;