#extended usage with names
 print Data::Dumper->Dump([$foo, $bar], [qw(foo *ary)]);