print sort grep $_ => <DATA>;

I don't get the purpose of the grep on  $_ in the quoted statement. Is it intended to remove the blank  __DATA__ lines? It doesn't, and it seems to me that those lines in the OP were just an artifact of failure to use  <code> tags in the first place. Can you please explain further?