do {
    my @array = ( qw/foo bar/ );
    print MyDumper(qw/@array/);
};

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

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

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