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

my $inputfile=$ARGV[0];
my $inputfile2=$ARGV[1];

open (file2,">fixdensbeds.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}}[0]\t${$matrix2{$temp2}}[1]\t${$matrix2{$temp2}}[2]\t0\t${$matrix2{$temp2}}[3]\t\-\n";
  $temp2++;

  }
open (INPUT_FILE,$inputfile2);

while(my $line1b=<INPUT_FILE>)  
 {   

 @{$matrix3{$temp3}}=split(/\s/,$line1b);
print file2 "${$matrix3{$temp3}}[0]\t${$matrix3{$temp3}}[1]\t${$matrix3{$temp3}}[2]\t0\t${$matrix3{$temp3}}[3]\t\+\n";
  $temp3++;

  }

close (file2);