my(@node_list) = glob("/appl/perform/workspace/htdocs/node_reports/*/*");
my($node) = "";
foreach $file (@node_list) {
    next if($file eq ".") or ($file eq "..") or ($file eq "lost+found");
    (undef,undef,undef,undef,undef,undef,$node,$filename) = split /\//, $file;
    my($pattern) = "business_use\.$node";
    chomp($node); chomp($filename);
    unless($filename =~ /^($pattern)/) {
        %needs_desc = ("$node" =>  1);
        delete $needs_desc{$node} if("$filename" eq "$pattern");
        while ( ($key, $value) = each %needs_desc ) {
            print "$key => $value\n";
        }
    }
}