array manipulation in perl