Select Code to Download

use Data::Dumper;

...

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

$VAR1 = [
          'Noel',
...
          'Ben' => '12',
          'Noel' => '25'
        };