open(FILE3, ">$ARGV[2]");

{print Data::Dumper->Dump([\%data],['MERGED HASH']),"\n";}