Select Code to Download

  foreach my $e (@calendar) {  $union{$e} = 1  }
  
...
  
  @intersect = keys %intersect;
  @union = keys %union;

@calendar= qw~ 1 ~; 
@Calendararray=qw~ 2 2 ~;