Select Code to Download

use Text::CSV_XS qw{ csv };

...
         $_[1] = [ map sprintf('%E', $_), @{ $_[1] } ]
     },
);