Can make this simpler... I have two alternatives:

1) Create a unique index on file name column, and let the insert fail if it's a duplication.

2) Use SQL in clause, so use one query, you can figure out whether any of those four names exist.

You have already got a better approach from PeterPeiGuo but if you are curious about what's wrong in your code, here are a few things which I noticed

1. You are not comparing the names, rather you are comparing the existence of names in db and in the array.if(($row->{image_name_1} ne "") eq ($pics[0] ne "")) will increment $flag_pic even if $row->{image_name_1} is "xyz" and $pics[0] is "abc"
2. (Let us assume previous error is corrected) You are assuming the order to be same in db and in array. If name in first row of db matches with that of second element in the array, it will go unnoticed and you will fire an "insert" query.

You definitely need to modify the approach

I am not trying to increment anything, I am trying to assignment a value so it can be true down on the IF statement if the element of the array "@pics" will match or be the same as the one found in the database.

We had a question about Putting 4 items into a DB table last week. Was that you?

There where a number of useful comments back then, about how it could be done. It would be an idea to read them, even if you where not the supplicant back then.

Well, I guess I understand what this person is looking for as far as this posting goes, I toke the test code by someone here and added some:

#!/usr/bin/perl

use strict;
#use warnings;

my @pics;

my $test_do_insert = 0; #change value to 0 to change variables to test
+ a case where it should not insert

my $image_name_1 = "";
   
   $image_name_1 = "test_image1.jpg" if (!$test_do_insert); # this is 
+one of the images already in the database 
        $pics[0] = 'test_image1.jpg'; # this is one of the images comi
+ng from this form #$pics[0] = 'test1.jpg';
print "\n14-image_name_1=$image_name_1 - pics[0]=$pics[0]\n";

my $image_name_2 = "";
   
   $image_name_2 = "test_image2.jpg" if (!$test_do_insert);  # this is
+ one of the images already in the database 
        $pics[1] = "test_image2.jpg"; # this is one of the images comi
+ng from this form  #$pics[1] = "test2.jpg";
print "\n20-image_name_2=$image_name_2 - pics[1]=$pics[1]\n";

my $image_name_3 = ""; 
   
   #$image_name_3 = "test_image3.jpg" if (!$test_do_insert);
   #$pics[2] = "test3.jpg";
print "\n26-image_name_3=$image_name_3 - pics[2]=$pics[2]\n";

my $image_name_4 = "";
   
   #$image_name_4 = "test_image4.jpg" if (!$test_do_insert);
   #$pics[3] = "test4.jpg";
print "\n32-image_name_4=$image_name_4 - pics[3]=$pics[3]\n\n\n";

if (@pics) {
    my $flag_pic = 0;

      # while (my $row = $sth->fetchrow_hashref()) {
                $flag_pic += &check_empty($image_name_1, $pics[0]);
                print "\n39-".$flag_pic."\n";
                $flag_pic += &check_empty($image_name_2, $pics[1]);
                print "\n41-".$flag_pic."\n";
                $flag_pic += &check_empty($image_name_3, $pics[2]);
                print "\n43-".$flag_pic."\n";
                $flag_pic += &check_empty($image_name_4, $pics[3]);
                print "\n45-".$flag_pic."\n";
      # }
       print "\n47**$flag_pic**\n";
    # End check
    if ( $flag_pic == 0 ) {
                print "\n50 - YES doing insert\n";
     }
     else {
                print "\n53 - NOT doing insert\n";
     }
  }

sub check_empty() {
        my $img = shift;
        my $pic = shift;

print "\n60-image_name=^$img^ - pics=^$pic^\n";

        if ( $img ne ""  && $pic ne "" )
         {
           print "\n63-image_name=$img - pics=$pic\n";
           if ( $img=~/$pic/ ) # if they match dont do the sql insert
            {
              print "\n66-image_name=$img - pics=$pic\n";
              return 1;
           }
           else 
            {
             print "\n72-image_name=$img - pics=$pic\n";
             return 0;
           }
        
           print "\n75-image_name=$img - pics=$pic\n";
         }
}
[download]


And thats the idea about what this person was looking for!
Enjoy!