$sth = $dbh->prepare("select * from table order by mid"); # Sorting alphabetically
        $sth->execute();

        while(my $info = $sth->fetchrow_hashref){
                my $count = 0;
                my $mid = $$info{'mid'};
chomp($mid);
                my $num = 0;
                if ($mid =~ /^[0-9]+$/){ # Checks to see if string happens to be only numbers
                        print fh "$mid is a number\n";
                        $num = 1; # If so, change value
                } else {
                        print fh "$mid is a string\n"; # Prints to a text file for me to look at. 
                }
                print "$mid - \$num = $num\n" if ($debug > 0);

                foreach my $id (@ldap){
chomp($id);
                        # Check to see if we've found a correlating LDAP entry from MySQL

                        if ($num == 1){
print fh "$mid - $id - Equating as numbers.\n";
last if ($count > 15);
                                if ($mid == $id){
                                        # Check type to see if we have data on it
                                        if ($$info{'type'} ne 'NA'){
                                                # If we do, then remove this ID from the list to retry
                                                splice @ldap, $count, 1;
                                                last;
                                        }
                                }
                        } else {
print fh "$mid - $id - Equating as strings.\n";
last if ($count > 15); # To drastically shorten during troubleshooting
                                if ($mid eq $id){
                                        # Check type to see if we have data on it
                                        if ($$info{'type'} ne 'NA'){
                                                # If we do, then remove this ID from the list to retry
                                                splice @ldap, $count, 1;
                                                last;
                                        }
                                }
                        }
                        $count++;
                }
        }
        $sth->finish;

##</code><code>##

if ($$info{'type'} ne 'NA'){
       # If we do, then remove this ID from the list to retry
        splice @ldap, $count, 1;
        last;
}

##</code><code>##

if ($$info{'type'} eq 'NA'){
        push(@file, $id);
}

# If we do, then remove this UID from the list to retry
splice @ldap, $count, 1;
last;