use Data::Dumper;

@grades = qw(Noel 25 
             Ben 76 
             Clementine 49 
             Norm 66 
             Chris 92 
             Doug 42 
             Carol 25 
             Ben 12 
             Clementine 0 
             Norm 66);

%grades = @grades;  

print Dumper \@grades;
print Dumper \%grades;