#!/usr/bin/perl
use strict;
use warnings;

# dateiname setzen
my $file='report.xml';

# Datei als UTF-8 kodiert öffnen, oder Fehlermeldung
open (my $fh,'<:encoding(UTF-8)', $file) or die("Error open $file ($!)\n");

# alles einlesen
my @array=<$fh>;

# Zeilenumbrüche entfernen
chomp(@array);

# Datei schließen
close $fh;

# das Array durchgehen
for my $i (0..$#array)
{
  # Arrayeintrag an stelle $i holen und mit "HALLO" vergleichen
  if($array[$i] eq 'HALLO')
  {
    print "match Line $i\n";
  }
}