print DATAFILE Data::Dumper->new([\%some_hash],[qw(some_hash)])
                           ->Purity(1)
                           ->Terse(0)
                           ->Indent(1)
                           ->Useqq(0)
                           ->Dump();