perl array javascript added