sub handleNewYear {
    # do something really useful
}

my $handleNewYear = \&handleNewYear;