sub ppp {
    use Data::Dumper();
    return Data::Dumper->new( [@_] )->Sortkeys( 1 )->Purity( 1 )->Indent( 0 )
      ->Useqq( 1 )->Dump . '$VAR1;';
} ## end sub ppp