my @list1 = (1,3,4,5,6,7);
my @list2 = (1..100);

foreach my $list1_item (@list1) {

    my $flag = 0;

    foreach my $list2_item (@list2) {
         if ($list1_item == $list2_item) {
               $flag = 1;
               last();
               }
          }

    if ($flag == 0) {
         print $img1;
         }
    else {
         print $img2;
         }

    }