it can be done only with APM (Advanced Perl Magick =):
cat /usr/local/psa/var/log/maillog | \
egrep "starting delivery.*to remote" | \
perl -F -a -lne '{$r{$F[0]}->[$F[1]]++}END{foreach$k(%r){@d=@{$r{$k}};for(my$i=1;$i<=$#d;$i++){printf "%.3s %2d %d\n", $k, $i, $d[$i]}}}'
Good luck.