{ # start closure
   my $type;

   sub ref_test1() {
      ...
   }

   sub ref_test2() {
      ...
   }
} # end of closure