use Data::Dumper;

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