foreach my $sql1 (@{$sql1}) {
    $table1{$sql1->[1]}{$sql1->[0]}=undef;  #rearranges the sql pull - large table of sequences and id's - These get used to create the alts and house the entire list that needs to be searched
}

foreach my $sql2 (@{$sql2}) {                
    $table2{$sql2->[1]}{$sql2->[0]}=undef;  #rearranges the sql pull - "filter" table of sequences and id's - Only used to dictate which sequences get used from the large table

my @bases = ('A','C','G','T');

foreach my $x (keys %table1){	

	if (exists $table2 ({$x})) {

my $found_alt = 0;

foreach my $bases (@bases) {
		my $alt = $x;
		substr($alt, 20, 1) = $opt;
		next if ($alt eq $x);
		if (exists $table1{$alt}) {
			$found_alt = 1;