my $StatChk='/tmp/teststatus.txt';

open my $DChk, '<', $StatChk || die "Failed: $!\n";
my @SChk_Out = grep {!/OK/} <$DChk>;
close ($DChk);

print @SChk_Out;