next if( grep{$message eq $_}@messages );
  push(@messages,$message);
  pop(@messages) while(@messages > 10);