my ( $last, $first, $age, $sex, $height, $weight, $comment ) = split (/,/);