use v5.12;
use warnings;

use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({
    binary    => 1,
    sep_char  => ";",
    eol       => $/,
    auto_diag => 1,
    });

my @fields = qw( ID NAME INDICATOR VALUE CI_LOW CI_HIGH );
$csv->print (*STDOUT, \@fields);
say  '';

my @columns = @{$csv->getline (*DATA)};
$csv->column_names (@columns);

while (my $hr = $csv->getline_hr (*DATA)) {
    # my @nr = @{$hr}{'ID'};
    $hr->{ID} =~ s/12/Sun/g;
    $hr->{ID} =~ s/17/Moon/g;
            
    $csv->print (*STDOUT, [ map { $hr->{$_} } @columns ]);
    }