#currently have strict turned off
#code snippet

foreach my $sql1 (@{$sql1}) {
	$table1{$sql1->[1]}{$sql1->[0]}=undef;  #rearranges the sql pull
}

foreach my $sql2 (@{$sql2}) {				
	$table2{$sql2->[1]}{$sql2->[0]}=undef;  #rearranges the sql pull
}

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


foreach my $tar1 (keys %table1){		

	foreach my $tar2 (keys %table2) {

		if ($tar1 eq $tar2) { 	

#a bunch of follow on code that works if the second foreach and if statements are removed