Add perl array and hash