Select Code to Download

#!/usr/bin/perl
use warnings;
...
  push @cols, split; 
}
close $wantcols;

my @valarray = [ @cols ]; #construct wanted headers
my $datavalues, '<', '/path/to/file2' or die '$!';
...

close $datavalues;

print map { @{ $valarray[$_] } , $/ } 0..$#valarray;