1Dear {$name},
2
3the following {scalar @domains} domains for which you are the registrar
4currently have problems.
5
6{
7    my $limit = 12;
8    $limit = @domains if @domains < 12;
9    my @first = @domains[0 .. $limit-1];
10    my @rest  = @domains[$limit .. $#domains];
11    foreach(@first){
12        $OUT .= $domaintemplate->fill_in(HASH => {
13            name => $_->[0],
14            result => $_->[1],
15            change => $_->[2],
16            critical => $_->[3],
17            error => $_->[4],
18            test_id => $_->[5],
19            time_t => $_->[6]
20        })
21    }
22    if(@rest){
23        $OUT .= "\nThe following domains also had problems. See attachment for details.\n\n";
24        foreach(@rest){
25            $OUT .= sprintf("%s (%d error, %d critical)\n", @{$_}[0,4,3])
26        }
27        $OUT .= "\n\n";
28    }
29}