my @d1 = glob "$w1/*";