print FH Data::Dumper->Dump([\%data], ['*data']);