It's hard to know how to answer when you haven't posted any code. I'm not sure what you have tried, so I don't know what advice to give. But that seems to be the way with most of your posts, so I guess this time won't be any different.

Please show that you have put some effort into trying to resolve your problem and someone will answer you. And from now on, I am going to downvote anyone who posts a correct, useful response to these sorts of messages that show absolutely no effort on behalf of the poster, over and above getting it to look nice in the preview window. (And I urge others to do likewise).

We are not going to do your work for you.

print@_{sort keys %_},$/if%_=split//,'= & *a?b:e\f/h^h!j+n,o@o;r$s-t%t#u'