$message = lc $message;

next if( grep { $message eq $_ } @messages );
push(@messages,$message);
shift @messages if 200 < @messages;