use Data::Dumper;

print Data::Dumper->Dump([\%RegStudentNew, \%RegInstructorNew,
    \%RegStudentExisting, \%RegInstructorExisting,
    \%StudentLogins, \%InstructorLogins ],
    [qw( RegStudentNew, RegInstructorNew, RegStudentExisting,
         RegInstructorExisting, StudentLogins, InstructorLogins )]);