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

# push rows of wanted columns onto table
while(<$datavalues>){
push @valarray, [ (split)[@cols] ]; 
}

close $datavalues;