...
if($action == 2 and defined($serial))
      {
            my @werte;
                  
            for(my $i = 1; $i <= 5; $i++)
            {
                  
                  my $tmp = $serial->input;
                  
                  my @wert = split(/\s+/, $tmp);
                  
                  push(@werte, $wert[1]);
                  
                  sleep(1);
            }
            
            # - letztes Arrayelement mit den vorhigen 2 prüfen - #
            
            my @tmp2;

            foreach(@werte)
            {
                  if($_ eq $werte[4])
                  {
                        push(@tmp2, $_);
                  }
            }
            
            if(@tmp2 >= 3)
            {
                  $gewicht = $tmp2[0];
                  
                  $gewicht =~ s/;//g;
                  $gewicht =~ s/,/\./;
                  $gewicht =~ s/kg//;
            }
            else
            {
                  Wx::MessageBox("Gewogene Werte stimmten nicht überein!\nVersuchen Sie es erneut.");
            }

...