add merge sort in perl