foreach (@test_node_list) {
    if (-e "/usr/adm/best1_default/collect/$_/noInstance") { # It probably is a node with data
        if (-e "/usr/adm/best1_default/manager/$_") {        # It has a vis files directory
            @node_list = (@node_list,$_);
            if (-e "/usr/adm/best1_default/manager/$_/$vis_year$vis_month$vis_zero$vis_day*.vis") {
                system("/appl/perform/best1home/perl/clean_graphics.pl", "$_");
                print "It exists.\n";
            }
        }
     }
}