Select Code to Download

$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 );

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

for ( 0..2 ) {

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

foreach my $k ( keys %DBhandles ) {

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