A revision of my first attempt at a JAPH.
Please help me!

for$;(split m;\{|\};
,q;2551241957{3013653325}3009549319;
){((print((sort{uc($a)cmp(uc($b))}split#;
m,d|m,i,qq,aMrmudcDPmkM\040dJModsMndeDldtdhMzDWdQms,,16)[$;
&15])),$;>>=4)while$;};
[download]

Life? What's a life?