my ($weight, $height) = (split(/\s+/, $_))[2,3]