Select Code to Download

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

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