my @cols_to_keep = (0, 2, 3, 5, 6, 8 .. 18);
while (my $line = readline(ARGV)) {
    my @fields = split /\s+/, $line;
    print FILE2 join(" ", @fields[@cols_to_keep]), "\n";
}