$ perl -we 'use Data::Dump < pp >; $x="foo"; pp ;' ("a", 2, "foo", "b")