#**********************************************************
#   Read Number from database.
#**********************************************************
sub get_open_us {
    my ($ret, $week) = @_;
    my %numbers;
    my $dbh = DBI->connect ('dbi:Oracle:bmfp', 'US', 'states', {PrintError => 1, AutoCommit => 0 });
    my $sth = $dbh->prepare(qq{ select ret_no
                                    from euro
                                    where ret_code = ?
                                      and start_week <= ?
                                      and end_week >= ? });
    $sth->execute ($ret, $week, $week);
    $dbh->disconnect;
    return \%numbers;
}


#**********************************************************
#  Main Program.
#**********************************************************

    my $week=1950;
    my $ret='edc';
    my $open = &get_open_us ($ret, $week);
    for my $numbers (sort keys %$open ) {
    if ( defined  $lookup{$numbers} ) {
         print "new number is $number";
    }
    }
	
Error :
DBI::db=HASH(0x405ed8c8)->disconnect invalidates 1 active statement handle (either destroy statement handles or call finish on them before disconnecting) at

#**********************************************************
#   Read Number from database.
#**********************************************************
sub get_open_us {
    my ($dbh, $ret, $week) = @_;
    my %numbers;
    my $sth = $dbh->prepare(qq{ select ret_no
                                    from euro
                                    where ret_code = ?
                                      and start_week <= ?
                                      and end_week >= ? });
    $sth->execute ($ret, $week, $week);
    $sth->bind_columns(\(my $number));
    while ($sth->fetch) {
    $numbers{$number} = $number;
    }
    $dbh->disconnect;
    return \%numbers;
}

#**********************************************************
#  Main Program.
#**********************************************************
my $dbh = DBI->connect ('dbi:Oracle:bmfp', 'US', 'states', {PrintError => 1, AutoCommit => 0 });
my $week=1950;
    my $ret='edc';
    my $open = &get_open_us ($dbh, $ret, $week);
    for my $numbers (sort keys %$open ) {
    if ( defined  $lookup{$numbers} ) {
         print "new number is $number";
    }
    }