$i = -1;
while (<FILE>){  
    chomp;
    $i++;
   ($last[$i], $first[$i], $age[$i], $sex[$i], $height[$i], $weight[$i]) = split/,/;
}
die "Sorry, no data\n" if $i == -1;