foreach my $sub (\&function_1,\&function_2) {
  $sub->();
}