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}