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

my $inputfile=$ARGV[0];

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

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

my $temp2;
my $temp3;
my $temp4;

open (INPUT_FILE,$inputfile);

while(my $line1=<INPUT_FILE>) 

{   

 @{$matrix2{$temp2}}=split(/\s/,$line1);
print file2 "${$matrix2{$temp2}}[6]\t${$matrix2{$temp2}}[7]\t${$matrix2{$temp2}}[8]\t${$matrix2{$temp2}}[3]\t${$matrix2{$temp2}}[10]\t${$matrix2{$temp2}}[5]\n";
  $temp2++;

  }