use strict;
    use warnings;
    use Getopt::Std;
    open (my $newfile, ">", "C:/result.txt");
    open (my $fh, "<", "C:/position.txt");
    open (my $file, "<", "C:/platform.txt");
    my @file_data = <$fh>;
    my @position = <$file>;
    close($fh);
    close($file);
    foreach my $line (@position)
    {
    my @line = split(/\t/,$line);
    my $start = $line[0];
    foreach my $values(@file_data)
    {
    my @values = split(/\t/, $values);
    my $id = $values[0];
    if ($start eq $id)
    {
    print $newfile $line[0],"\t",$line[2],"\t",$line[3],"\t",$values[0],"\t",$values[1],"\t",$values[2],"\n";
    }
    }
    }

print "DONE";