my $dbh_b = DBI->connect...

my $values = 
  join("," 
       ,map { $dbh_sec->quote($_) } @ar_acc_num 
      );