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

CheckAllPairs();
CheckAllPairs();

sub CheckAllPairs{
        my $abs_time_res=50;
        my $max_peak_time=2050;
        my $subj_num;
        my $region;
        my $region1;
        my $region2;
        my $time;
        my $peaks;
        my @act_list1;
        my @act_list2;
        my $i;
        my $j;
        my $key;
        my $delta;
        my %map;
        my $start_A;
        my $end_A;
        my $start_B;
        my $end_B;

        my @region_list = (1..38);
        my @main_subjects_list = (1..38);