#!/usr/bin/perl
use warnings;
use strict;

my $wantcols, '<', '/path/to/file1' or die '$!';
my @cols;
while(<$wantcols>){
  push @cols, split; 
}
close $wantcols;

##</code><code>##

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;


##</code><code>##

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