use Data::Dumper;

# ...

my $hash_ref = mysub();
print Dumper $hash_ref;