BEGIN {
  my ($var1, $var2) = ("this", "that");

  sub sub1 {
    # use $var1, $var2
  }

  sub sub2 {
    # use $var1, $var2
  }
}