Well, the above code makes sense. Maybe it is not very efficient because it splits lines inside of the sort, but it should work.
It looks like you don't know perl, so it is bad idea to write in perl when you don't know it. So either learn it, or ask someone to write the code that you need. For that, specify exactly what the code should do.
It's just hard to answer random questions about perl, when the listener does not know much about it. Without ground knowledge the answers won't make sense.