Select Code to Download

use strict;
use warnings;
...
close $valuesFH or die qq{close: < HEREDOC: $!\n};

print Data::Dumper->Dumpxs( [ \ %univ ], [ qw{ *univ } ] );

%univ = (
          '456' => {
...
                              }
                   }
        );