my $handleNewYear = sub {
    # do something really useful
};

# ... lotsa logic...
if (1==$mday && 1==$month) {
    $handelNewYear->();
}