Select Code to Download

sub traverse(&$) {
    my( $code, $ref ) = @_;
...
}

traverse { print join ',', @_ } \%hash;

my @strings = traverse{ join',', @_ } \%HorAofHorA;