my $pattern = $appts->{RecurrencePattern};
#                 ^ add this "t"!