foreach my $path (glob("/var/www/directory/*")) {
        next unless(-d $path);
        # produce output for each directory
        if($path eq $path1) {
                foreach my $file (glob("$path/*.txt")) {
                        # produce output for each file
                }
        }
}