There is a way to do what you want, but you probably don't want to do it. Here goes:
my $handleNewYear = sub {
# do something really useful
};
# ... lotsa logic...
if (1==$mday && 1==$month) {
$handelNewYear->();
}
All that I have done is stored the subroutine in a variable. Do that with all of your subroutines and all of your typos in subroutines become typos in variable names which
strict.pm catches.
You may note that I also reversed the order of your == comparisons. The reason for doing that is so that if you type = instead of == some day, Perl will complain because you can't assign to a constant. This is a useful habit in many C-like languages.