You'll have to change the hash (%studentInfo = ( ... );) to a hash reference ($studentInfo = { ... };).

use Data::Dumper;

print $fh Data::Dumper->new([ $studentInfo ], [qw( $studentInfo )])
                      ->Purity(1)
                      ->Useqq(1)
                      ->Dump();
[download]