Select Code to Download

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

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