#!/usr/bin/perl -w
use strict;
use warnings; 
my @data=<>;
my @column=();
for (my $count=3;$count<=4215;$count++)
{
  foreach (@data)
  {
  my @row=split(/\t/, $_);
  push (@column,$row[$count]);
  }
print "@column\n";
@column=()
}