push @list, (split ' ')[3] foreach <$syscmd>;


##</code><code>##

while (<$syscmd>)
{
    my @temp = split ' ';
    push @list, $temp[3];
}

##</code><code>##

foreach my $val (sort keys %prolist)
{
    unless (grep($prolist{$val} eq $_))
    {
        print "NF: $prolist{$val}\n";
    }
}