#!/usr/bin/perl   
use strict;   
use warnings;   
  
my %microRNA_read_count_1 = ( );    
my %microRNA_read_count_2 = ( );    
my %microRNA_read_count_3 = ( );    
my %microRNA_read_count_4 = ( );    
  
open(INFILE,$ARGV[0]) or die $!;;                                                              
while (<INFILE>){                                                                      
	chomp;                          
	my @row = split /\t/;				    
	my $mir = $row[0];    
	my $count = $row[1];    
	$microRNA_read_count_1{$mir} = $count;    
}    
close INFILE or die $!;    
  
open(INFILE,$ARGV[1]) or die $!;                                                              
while (<INFILE>){                                                                      
	chomp;                  
	my @row = split /\t/;   
	my $mir = $row[0];    
	my $count = $row[1];    
	$microRNA_read_count_2{$mir} = $count;    
}    
close INFILE or die $!;    
  
open(INFILE,$ARGV[2]) or die $!;                                                             
while (<INFILE>){    
	chomp;                                                                    
	my @row = split /\t/;				    
	my $mir = $row[0];    
	my $count = $row[1];    
	$microRNA_read_count_3{$mir} = $count;    
}    
close INFILE or die $!;    
  
open(INFILE,$ARGV[3]) or die $!;                                                              
while (<INFILE>){    
	chomp;                                                                    
	my @row = split /\t/;    
	my $mir = $row[0];    
	my $count = $row[1];    
	$microRNA_read_count_4{$mir} = $count;    
}    
close INFILE or die $!;    
  
open(INFILE,$ARGV[4]) or die $!;                                                              
while (<INFILE>){   
  # Reads the input file line by line                  
  chomp;    
  #print $_ ."\t". $microRNA_read_count_1{$_} ."\t". $microRNA_read_count_2{$_} ."\t". $microRNA_read_count_3{$_} ."\t". $microRNA_read_count_4{$_} ."\n";    
  print join("\t", $_, $microRNA_read_count_1{$_} || 0, $microRNA_read_count_2{$_} || 0, $microRNA_read_count_3{$_} || 0, $microRNA_read_count_4{$_} || 0), "\n";    
}    
close INFILE or die $!;