map$0{$_}++,split//,$_=<>;
@0=map[$_,$0{$_},$_],keys%0;