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

my @files = glob("file*.tab");
my %data;

for my $file ( @files ) {

    open my $fh, '<', $file or die $!;
    while ( <$fh> ) {
        chomp;
        my @columns = split /\t/;

        die "_ERROR_ not 9 columns [ $_ ]\n"  if @columns != 9;

        my $key = join( "\t", @columns[0..3] );
        $data{$key}->{$file} = $columns[6];
    }
    close $fh;
}

print join("\t", 'chr', 'fivep', 'threep', 'strand', @files), "\n";

for my $key ( keys %data ) {
    my ( $chr, $fivep, $threep, $strand ) = split /\t/, $key;

    next if ( $strand =~ /^0$/ );

    my @output;

    for my $file ( @files )
    {
        push @output, $data{$key}->{$file} // 0;
    }

    print join("\t", $chr, $fivep, $threep, "-", @output ), "\n";
}