my $name_file=shift(@ARGV) or die("NO Names File!");
my $data_file=shift(@ARGV) or die("NO Data File!");
my $outp_file=shift(@ARGV) or die("NO Output File!");