$sth_insert->execute ( map { $fields{ $_ } }
  qw/ITEMNO OPTFIELD AUDTUSER AUDTORG VALUE
     TYPE LENGTH DECIMALS ALLOWNULL VALIDATE SWSET/ ) or
$log->logdie ( "Error with $insert_cmd: " . $sth_insert->errstr );

##</code><code>##

my @good = grep { $_->{'result'} != 0 } @list;
my @bad = grep { $_->{'result'} == 0 } @list;

##</code><code>##

for ( 0..2 ) {

  defined $item_image_url->[ $_ ] or last;
  $new_values{ "ITEMIMAGEUR$endings[ $_ ]" } =
    $item_image_url->[ $_ ] // '';
}

##</code><code>##

foreach my $k ( keys %DBhandles ) {

  $DBhandles{ $k }{ sth }->finish;
  $DBhandles{ $k }{ dbh }->disconnect; 
}