my @subs = 
	map{ $sup.$_->[0]  }
	grep{ defined $_->[0] }
	map{ [/^$sup(\w+)$/] } @alldirs;