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