my $data1 = $ARGV[0];
my $data2 = $ARGV[1];
my $data3 = $ARGV[2];


##</code><code>##

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

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