use Data::Dumper;

my $foo = Data::Dumper->Dump( [ \%ENV ], [qw( ENV )] );