@alldays1 = ();

##</code><code>##

use strict;
use CGI ':standard';
use Date::Calc  qw(:all);
use Data::Dumper;

print "Content-type: text/html\n\n";

my @calendar = qw~732235 732236 732237 732238 732239 732240 732312 732313 732314 732315 732316 732317
732318 732319 732320 732321 732322 732323 732324 732325 732326 732327 732328
732329 732330 732331 732332 732333 732334 732335 732336 732337 732338 732339
732340 732341 732342 732343 732344 732345 732346 732347 732348 732349 732350
732351 732352 732353 732354 732355 732356 732357 732358 732359 732360 732361
732362 732363 732364 732365 732366 732367 732368 732369 732370 732371 732372
732373 732374 732375 732376 732377 732378 732379 732380 732381 732382 732383
732384 732385 732386 732387 732388 732389 732390 732391 732392 732393 732394
732395 732396 732397 732398 732399 732400 732401 732407 732408 732409 732410
732411 732412 732413 732414 732415 732416 732417 732418 732419 732422 732423
732424 732425 732426 732427 732428 732429 732430 732431 732432 732433 732434
732435 732491 732492 732493 732494 732495 732496 732497 732498 732499 732500
732501 732502 732503 732504~;

my @Calendararray = qw~732357 732358 732359 732360 732361 732362 732363 732364
732365 732366 732367 732368 732369 732370 732371 732372 732373 732374 732375 732376 732377~;

  my $e;
  my (@union, @intersect);
  my (%union, %intersect);
  my $count = 0;
  
  foreach my $e (@calendar) {  $union{$e} = 1  }
  
  foreach $e (@Calendararray)  {
      if ($union{$e})  {  $intersect{$e} = 1  }
      $union{$e} = 1;
  }
  
  @intersect = keys %intersect;
  @union = keys %union;
  $count = @intersect;
print "count = $count\n";  
my %dates;
my @alldays;
my @alldays1;


for ( @intersect )
{
    my ( $year, $month, $day ) = Add_Delta_Days( 1, 1, 1, $_ - 1 );
    push @{ $dates{$year}->{$month} }, $day;
}


@calendar = sort @calendar;
@Calendararray = sort @Calendararray;
@intersect = sort @intersect;
print "@calendar";
print "<br><br>";
print "@Calendararray";
print "<br><br>";
print "@intersect";
print "<br><br>"; 

my @linetoprint;    
my $statement;
   for my $year (sort keys %dates) {
    for my $month (sort keys %{$dates{$year}}) {    
    @alldays = @{$dates{$year}{$month}};
	@alldays1 = ();
	print "all days = ", join(",", @alldays), "\n";
    my @months = qw (January February March April May June July August September October November December);
           my $m_w = $months[$month -1];

        foreach my $item (@alldays) {
          $item = sprintf ('%02d', $item);
          push (@alldays1, $item);
          }
        
        @alldays1 = sort (@alldays1);
        
        $statement = "$year: $m_w,&nbsp;&nbsp;@alldays1";    
        push (@linetoprint, $statement);
     }
  }
  
  $statement = join "<br>\n", @linetoprint;
  
    print "$statement";


##</code><code>##

2006: February,&nbsp;&nbsp;15 16 17 18 19 20 21 22 23 24 25 26 27 28<br>
2006: March,&nbsp;&nbsp;01 02 03 04 05 06 07