use Data::Dumper;

##</code><code>##

print Data::Dumper->Dump([$result],['result']);