print Data::Dumper->Dump(
    [$foo,$bar,$baz],
    [qw(*foo *bar *baz)]
);