# OO usage
           $d = Data::Dumper->new([$foo, $bar], [qw(foo *ary)]);
              ...
           print $d->Dump;