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

  print "Zahl: $count";