my @message_type=('error','alert','warning');
my %messages;
my $messages_log='/var/log/messages';

foreach (@message_type)
 {
  $messages{$_}=`cat $messages_log |grep $_ | wc -l`;
  chomp($messages{$_});
  $messages{$_}=~s/ //g;
 }