foreach my $array ( @{$arrayRef} )
{
       while ($array->[1] =~ /<irgendeinmatch/igm) {
               print $array->[0],": ", $1, " --> ",$2,"\n";
       }
       
}