use Data::Dumper qw();

##</code><code>##

print Data::Dumper->new([$ResponseXML],['ResponseXML'])->Useqq(1)->Dump(),"\n";

##</code><code>##

$ResponseXML = {
                 "Other" => [
                              "stuff",
                              "may also",
                              "appear"
                            ],
                 "filename" => " /opt/XML/otherfile.xml\n"
               };