Select Code to Download

#!/usr/bin/perl
use warnings;
...
for my $record ({map { $_ => $_ } @columns}, @records) {
    $csv->say(\*STDOUT, [@$record{@columns}]);
}