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