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