$x = ~ /regex/;
%hash = map { "\L$_", 1 } @array;