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

my $inputfile=$ARGV[0];

open (INPUT_FILE,$inputfile);

open (file2,">Tables2hrep23_2.bed") or die "$!\n";

my %matrix1;
my %matrix2;
my %matrix3;

my $temp1=0;
my $temp2=0;
my $temp3=0;



while(my $line1=<INPUT_FILE>)  
 {   
     @{$matrix1{$temp1}}=split(/\s/,$line1);
   #print "${$matrix1{$temp1}}[2]\n";
     $temp1++;
 }


print file2 "${$matrix1{0}}[0]\t${$matrix1{0}}[1]\t${$matrix1{0}}[2]\t${$matrix1{0}}[3]\t${$matrix1{0}}[4]\t${$matrix1{0}}[9]\t${$matrix1{0}}[5]\n";

for ( my $i=1; $i<$temp1; $i++)
 {   
    if  (( ${$matrix1{$i-1}}[1] eq ${$matrix1{$i}}[1] ) &&( ${$matrix1{$i-1}}[2] eq ${$matrix1{$i}}[2] ) && ( ${$matrix1{$i-1}}[3] eq ${$matrix1{$i}}[3] ))
    { }
    else
  {print file2 "${$matrix1{$i}}[0]\t${$matrix1{$i}}[1]\t${$matrix1{$i}}[2]\t${$matrix1{$i}}[3]\t${$matrix1{$i}}[4]\t${$matrix1{$i}}[9]\t${$matrix1{$i}}[5]\n";}

}


 close (file2);