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

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