use Data::Dumper::Simple;
warn Dumper($foo, %this, @array, %that);