use List::Util qw(sum);
my @words = qw(hallo du hallo sonstwer);
my $anzahlHallo = sum map {$_ eq "hallo"} @words;

# oder auch
use List::MoreUtils qw(true);  # hier hätte ich n_true o.ä. besser gefunden als Namen
my $anzahlHallo = true {$_ eq "hallo"} @words;