open(I1,$ARGV[0]); 
my %info;
while (my $line = <I1>) {
	if ($line =~ /##INFO=<ID=/) {	
	my ($first,$second) = (split(/\,/, $line));
	my ($firstsecond,$secondsecond) = (split(/ID=/, $first));
	$info{$secondsecond}=();
	}
}