Yes - use Data::Dumper::Names:

use Data::Dumper::Names;

my $foo = 3;
my @bar = qw/this that/;
warn Dumper($foo, \@bar);
__END__
output:
    
$foo = 3;
@bar = (
        'this',
        'that'
);
[download]

thanks! i guess if i want to format the output differently, i need to read Dumper source code.

Dumper can be controlled by some attributes, read the man pages first! I, personally, like Data::Dump::Streamer better:

$ 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]

Or, if the vars aren't lexical,

$ 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]

[]s, HTH, Massa (κς,πμ,πλ)

Would

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

do the trick?
-- 
Ronald Fischer <ynnor@mm.st>

hackish solution:

sub print_variable {
    local *print_variable = $_[0];
    my $name = $print_variable;
    for (keys %::){
        next if /^print_variable$/;
        print "$_ = $name\n" 
            if *{$::{$_}}{SCALAR} eq  *{$::{print_variable}}{SCALAR};
    }
}
$firstname = "Edward";
$var = 1;
print_variable( *firstname );
print_variable( *var );
__END__
firstname = Edward
var = 1
[download]

Doesn't work with my variables, only with symbol table entries. Also, if you alias a typeglob, you get them all:

$firstname = "Edward";
*surname = *firstname;
print_variable( *firstname );
__END__
firstname = Edward
surname = Edward
[download]

update: fixed b0rken code...

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

e.g.

use data::Dumper;

sub some_sub {
  my $args = {
    first_name => '',
    surname    => '',
    @_
  };
  print Dumper $args;
}

some_sub qw/Edward Lear/;
[download]

$VAR1 = {
          first_name => 'Edward',
          surname    => 'Lear',
        };
[download]

It's what I tend to use ...

Update Thanx to massa who pointed out the obvious error in my example code:

some_sub qw/Edward Lear/;
[download]

some_sub first_name => 'Edward', surname => 'Lear';
[download]

HTH ,

Your example is expecting named parameters, but it's not sending the named parameters:

use Data::Dumper;

sub some_sub {
  my $args = {
    first_name => '',
    surname    => '',
    @_
  };
  print Dumper $args;
}

some_sub first_name => 'Edward', surname => 'Lear';
[download]

will work!
[]s, HTH, Massa (κς,πμ,πλ)