Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
           );

print join ", ", @{$hoa{names}};

#!/usr/bin/perl
use strict;

...
    no strict 'refs';
    print join ", ", @{$array_name};
}