my (%fields,@records);
@fields{qw(lastname firstname age height weight)} = (0..4);

while(<DATA>) {
	chomp;
	my @row = split(/,/,$_);
	push @records, \@row;
}

__DATA__
Smith,Joe,40,76,175
Page,Betty,60,58,165
Nader,Ralph,55,63,190
Alexander,Sue,25,54,98
Saxon,Jackson,32,60,155