my(@last_name,@first_name,@age,@height,@weight);
my $i=0;
while(<INPUT>){
  ($last_name[$i],$first_name[$i],$age[$i],$height[$i],$weight[$i] = split(/,/);
  $i++;
}