use strict; use warnings; use 5.010; sub my_dumper { require Data::Dumper; my %args = @_; my @names = keys %args; my @refs = values %args; warn Data::Dumper->Dump( \@refs, \@names ), "\n"; } my $foo = [ qw( an array ) ]; my $bar = { a => "hash" }; my_dumper( 'foo' => $foo, '*bar' => $bar );