{ # closure starts here
  my $shared_variable;
  sub ref_test1 { ... }
  sub ref_test2 { ... }
}