Re: output of dumper

[tcf22]

First off $9YT isn't a valid valiable name. Variables can start with letters and underscores only. Using Data::Dumper should get almost what you want. There are no my's and i'm not sure how to get them, or if it is even possible with Data::Dumper.

use strict;
use warnings;

use Data::Dumper;

my $ER = 34;
my $YT = 44;
my $EE = 66;

print Data::Dumper->Dump([$ER, $YT, $EE], [qw(ER YT EE)]);

__OUTPUT__

$ER = 34;
$YT = 44;
$EE = 66;

[hardburn]

First off $9YT isn't a valid valiable name

It is if you do enough tricks.

$ perl -MData::Dumper -le '$f = "9YT"; $$f = "foo"; print Data::Dumper
+::Dumper(\%main::)'
$VAR1 = {
          # snip
          '9YT' => *{'::9YT'},
          # snip
        };

With symbol table lookups and symbolic refs, pretty much anything is possible in a Perl variable name. I don't know of a way to get lexicals to do this, though.