Select Code to Download

tie(my %cal, etc, etc, etc) or die "Cant tie cal: $!\n";
...

@sorted_cal_keys  = sort { $a <=> $b } keys %cal;
@sorted_adrr_keys = sort { $a cmp $b } keys %addr;

tie(my %cal, etc) or die "cal: $!\n";
tie(my %addr, etc) or die "addr: $!\n";
...
   } else {                 # where did this come from?
   }
}