perl array sort