#!/usr/bin/perl -w
use strict;
my @array = qw/1 2 3 4 5/;

my $number = 0;
for(0..$#array) {
   if( $array[$_]==2 ) {
      print($_, "\t", $array[$_]."\n");
      $number++;
   }
}
print "Anzahl: $number\n";