merge sort by perl