Select Code to Download

my %cols_idx = do { my $i = 0; map { $_ => $i++ } @cols };

my @data = map [ split " " ] => <DATA>;

#!/usr/local/bin/perl
use strict;
...
VAZQUEZ        TOMASINA   456790 LAVER  0110      1980-11-14 1960-14-0
+2
WILSON         SYLVESTER  498703 LAVER  0110      1983-04-02 1953-06-2
+2
VASQUEZ        ALBERTO    906786 TRE    0111      2001-07-15 1953-02-2
+8