Select Code to Download

my $next = hash_walker(\%data);
while (my @row = $next->()) {
...
        return @row;
    };
}

output_hash(\%data);

...
        print join(',', @row, $k, $v), "\n";
    }
}