if ($line =~ /\b(?:BRIN|SAGEF403)\b/) {
    push @data, [@array];
}
else {
    push @weggeworfen, [@array];
}