my $count = 0;
   for my $item (@images) {
        #arbeite...
        $count++;
   }

   print "Zahl: $count";