use strict;
use warnings;
use feature qw(say);

use constant {
  STUDENT     => 0,
  FIRST_QUIZ  => 1,
  LAST_QUIZ   => 3,
  FIRST_EXAM  => 4,
  LAST_EXAM   => 5,
  FINAL => 6,
};

while (<DATA>)
{
  my @fields = split /,/, $_;
  say "Student:", $fields[STUDENT];
  say "Quizzes:", join ", ", @fields[FIRST_QUIZ..LAST_QUIZ];
  say "Exams:", join ", ", @fields[FIRST_EXAM..LAST_EXAM];
  say "Final:", $fields[FINAL];
  say "-----"
}

__DATA__
Allen Bailey,90,95,80,98,76,89
Carole Daily,9,9,8,9,7,8
Evan Fairly,50,75,10,82,64,79