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

my $inputfile=$ARGV[0];

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

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

my $var1=0;
my $var2=0;
my $var3=0;

my $signal=0;

my $temp1=0;

open (INPUT_FILE,$inputfile);
while(my $line1=<INPUT_FILE>)  
 {   
        @{$matrix1{$temp1}}=split(/\s/,$line1);

        if ((${$matrix1{$temp1}}[4] =~/(\-)\:/ ) || (${$matrix1{$temp1}}[4] =~/(\+)\:/ ))
          { $var1=$1;}

        if ( $var1 eq ${$matrix1{$temp1}}[5] )
          {
 print file2 "${$matrix1{$temp1}}[0]\t${$matrix1{$temp1}}[1]\t${$matrix1{$temp1}}[2]\t${$matrix1{$temp1}}[3]\t${$matrix1{$temp1}}[4]\t${$matrix1{$temp1}}[5]\n";
          }
        undef %matrix1;
        $temp1++;
  }

close (file2);