eval'use strict;$uo';@_{split//,eCVJABDdEeSFeNeeGaeIHQecePMLR. TeeUeeeZYeKeeOXebWeeee}=split//,uc$@;print@_{sort+keys%_},"\n"