Select Code to Download

use v5.12;
use warnings;
...
            
    $csv->print (*STDOUT, [ map { $hr->{$_} } @columns ]);
    }

my @fields = qw( ID NAME INDICATOR VALUE CI_LOW CI_HIGH );
$csv->print (*STDOUT, \@fields);
...
            
    $csv->print (*STDOUT, [ @rec{@columns} ]);
    }