Select Code to Download

use warnings;
use strict;
...
for my $sku (sort keys %$itms) {
    $csv->print(select, [$sku, map { $itms->{$sku}{$_} } @columns ]);
}