well it's pretty straight forward...

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] = s
+plit(/,/);
  $i++;
}
[download]