Select Code to Download

    my @arr_b = grep { $_ % 3600 == 0 } ($start_b .. $end_b); 
    my @arr_a = grep { $_ % 3600 == 0 } ($start_a .. $end_a);

$ perl -s timeoverlap.961234.pl
Start: Sun Mar 25 06:53:28 2012
...
unit2;1013
End: Sun Mar 25 06:53:37 2012
End: 1

    use vars qw/ $withDateTime /;
    if( $withDateTime  ){
...
        $hash{$wds} +=  $thours if $thours;
        next STRING;
    }