ok, look up perlfunc:sort and read about user defined sorting criteria.

Have a nice day
All decision is left to your taste