Select Code to Download

use Modern::Perl;
use Text::CSV_XS;
...
my $row = $csv->fragment($fh, "col=1;3;10-12;23-*");

print Dumper($row);

$VAR1 = [
...
            'z'
          ]
        ];