#!/usr/local/bin/perl

use strict;
use warnings;

my $logfile = "/var/log/exim/mainlog";
my @array;
my %reason;

open LOG, $logfile or die $!;
while (<LOG>) {
  if ($_ =~ /rejected/) {
    @array = split(/:/, $_);
    chomp $array[3];
    $reason{$array[3]}++;
  }
}
close LOG;

print "Count\tReason\n";
foreach my $key (sort { $reason{$a} <=> $reason{$b} } keys %reason) {
	print "$reason{$key}\t$key\n";
}