use Data::Dumper;
my %some_hash = (
	andrew => 10,
	caroline => 30
);
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 1;
$Data::Dumper::Useqq = 1;

open DATAFILE, ">somedata"
    or die "Cannot open datafile: $!";

print DATAFILE Dumper %some_hash;