$age[$i++] ={last=>$last,first=>$first,age=>$age,sex=>$sex,height=>$height,weight=>$weight,comment=>$comment}