my %ext; @ext{@ext} = (1) x @ext;