my $combs = [ map { [split /\./] }
	      glob '{CZK,EUR}.{asia,emea,na,sa}.{acad,sopr,user}'
	    ];