Select Code to Download

sub test {
    my ($ref) = @_;
    $ref->{'new'} = 'new_v';
    print join(",", keys (%$ref)),"\n";
}