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}=();
	}
}

##</code><code>##

while (my $line = <I1>) {
	if ($line !~ /#/) {	
	my ($numbers,$data) = (split(/\t/, $line));	
	foreach my $dat ($data){
	my ($string, $int) = (split(/\;/, $dat));