use warnings;
use strict;

sub read_TABLE{
  my($file_name)=@_;
  open (OPEN_TABLE,$file_name);
  if(open (OPEN_TABLE, $file_name)){
          print "Can open file \"$file_name\" \n";
  }
  
  unless(open(OPEN_TABLE, $file_name)){
                          print STDERR "Can't open file \"$file_name\" \n";
  }
  my@table;
  while(my$line=<OPEN_TABLE>){
      chomp $line;
      my @data=split(/\t/,$line,5);
      push @table,\@data;
  }
  close OPEN_TABLE;
  return @table;
}
my @s=read_table("TABLE.txt");

foreach my $line(@s) {
    my$start=[0];
    my$end=[1];
    my$name=[2];
    my$strand=[3];
    
    my$type=[4];
    print "$type\n";
}