while(<INFILE>)
{
    # get the current line and split into it's columns
    @Line = split /\s+/, $_;

    #print the selected columns to the output
    my $outline .= @Line[$col]."\t" foreach my $col (@ColumnNumbers);
    print OUTFILE $outline,"\n";
}