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;

##</code><code>##

$VAR1 = [
          'Noel',
          '25',
          'Ben',
          '76',
          'Clementine',
          '49',
          'Norm',
          '66',
          'Chris',
          '92',
          'Doug',
          '42',
          'Carol',
          '25',
          'Ben',
          '12',
          'Clementine',
          '0',
          'Norm',
          '66'
        ];
$VAR1 = {
          'Chris' => '92',
          'Carol' => '25',
          'Doug' => '42',
          'Norm' => '66',
          'Clementine' => '0',
          'Ben' => '12',
          'Noel' => '25'
        };