perl -e'map{($a=substr(sprintf("%b",$n+++2),1))=~tr/01/.-/;push @ar,"$_= $a\n"}split(//, "etianmsurwdkgohvfüläpjbxcyzqöch",30);map {print} sort @ar'