$,=$/;$/=\1;$a{<>}|="@b{a..$_}#"while<>;print@a{a..z}