foreach $a1(@a1) {
        foreach $b1(@b1)
        {
            $sth = $dbh->prepare( "SELECT a1.ID FROM a1, a1_b1, b1  WH

##</code><code>##

use strict;
use warnings;