use Data::Dump; dd $foo; __END__ "1. Blah\n 2. Blubb\n 3. more blah"