<>=~s/.(.)/@$1[-97+ord$&]="#"/ger;print map$_||$",@$_,$/for a..z