#!/usr/bin/perl -w
use strict;

open (INA, $ARGV[0]) || die "cannot to open gene file";
open (INB, $ARGV[1]) || die "cannot to open coding_annotated.var files";

my @sample1 = <INA>;
my @sample2 = <INB>;


foreach my $line (@sample1) {
	my @tab = split (/\t/, $line);

my $chr = $tab[1];
my $start = $tab[2];
#my $end = $tab[3];
my $ref = $tab[4];
my $alt = $tab[5];
my $name = $tab[6];

	foreach my $item (@sample2){
	my @fields = split (/\t/,$item);


		if ($fields[1]=~ m/$chr(.*)/ && $fields[2]=~ m/$start(.*)/ && $fields[4]=~ m/$ref(.*)/ && $fields[5]=~ m/$alt(.*)/&& $fields[6]=~ m/$name(.*)/){		
		print  $line,"\n",$item;
				
		}
	 }
 }