my $dump=Data::Dumper->new([$foo,$bar])
                     ->Names([qw(foo bar)])
                     ->Purity(0)
                     ->Terse(1)
                     ->Useqq(1)
                     ->Indent(0)
                     ->Dump();