use strict;
use watnings;

#...

my @messages;

open(my $dev, '<', $PORT) || die "Kann den Port $PORT: $_ nicht öffnen";
while(my $line=<$dev>)
{
  # Aufspliten der Nachricht für die Verarbeitung
  my ($start, $ric, $date, $time, $message, $end) = split(/::/, $line);

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

  print $message;
}