And what about this:

#!perl -w
use strict;

my $scalar = 'dfaure';
my @array = (
             'Data',
             'Dumper',
             'Simple',
             'Rocks!'
           );
my %hash = (
            'it' => 'does',
            'I'  => 'hope',
            'at' => 'least'
          );

sub MyDumper {
    my @values;
    for (@values = @_) { s/^([%@])/\\$1/; $_ .= ','; }

    my @names;
    for (@names = @_) { s/^[%@]/*/; s/^\$//; }

    return eval "use Data::Dumper;Data::Dumper->Dump([@values],[qw/@na
+mes/])";
}

print MyDumper(qw/$scalar @array %hash/);
[download]