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

##</code><code>##

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