#**********************************************************
#   Read shops from database.
#**********************************************************
sub new_read_shop_lookup {
    my ($ret_code) = @_;
    my $dbh = DBI->connect('dbi:Oracle:ussmft', 'dsu', 'morning', {AutoCommit => 0, RaiseError => 1})
    or die "Unable to connect to Oracle: $!";
    my $sth = $dbh->prepare(qq{ select country_shop_no from shoptable where country_file = ? });
        $sth->execute($ret_code);
    my $array = $sth->fetchall_arrayref();
        foreach (@$array) {
                print "$_ ";
    }
    $dbh1->disconnect;
	return \@array;
    }

&new_read_shop_lookup ($ret_code);

for my $new_shop (sort keys @array) {
       if ( ! defined $ran_lookup{$new_shop} ) {
        print "new shop is $new_shop\n";
      }
    }