$ perl -e '

use Data::Dump::Streamer;

my $firstname = "Edward";
my $var = 1;
my @jack = ('a', '1', { b => 3, c => [1, 2]});
DumpLex($firstname, $var, \@jack)->Indent(0)->OptSpace(" ")->Out();

'
$firstname = 'Edward';
$var = 1;
@jack = ( 'a', 1, { b => 3, c => [ 1, 2 ] } );
[download]

$ perl -e '

use Data::Dump::Streamer;

$firstname = "Edward";
$var = 1;
@jack = ('a', '1', { b => 3, c => [1, 2]});
DumpVars(firstname => $firstname, var => $var, jack => \@jack)->Indent
+(0)->OptSpace(" ")->Out();

'
$firstname = 'Edward';
$var = 1;
$jack = [ 'a', 1, { b => 3, c => [ 1, 2 ] } ];
[download]

Mucho gracias. Else, I would have not been interested in the D'D'Streamer for D'D has been good enough for me.

Would

# Warning! Code not tested!
$_=eval($name);
print(defined $_ ? ("$name=[$_]") : "$name is undefined");
[download]

no, it doesn't work. it prints out the variable value not its name

Hmmmm.... For me it works. Here a complete program to demonstrate the concept:

use strict;
use warnings;
my $var1=35;
my $var2=undef;
foreach my $name ('$var1','$var2') {
  $_=eval($name);
  print(defined $_ ? ("$name=[$_]") : "$name is undefined","\n");
}
[download]

This prints:

$var1=[35]
$var2 is undefined
[download]

-- 
Ronald Fischer <ynnor@mm.st>