perl array functions