my $hash_ref = mysub();
while (my ($k, $v) = each(%$hash_ref)) {
    print "$k = $v\n";
}