Select Code to Download

use 5.010;

# this has the same effect as...
...

# a shorter approach
say {$fh} join ', ', @array;