my $output;
while (<PROCS>)
{
    $output++;
    # do something else
}

print "Couldn't find $process\n" unless $output;