sub foo {
  my ($var1, $var2, $var3, @arr1);

  [a large pile of code]
}

##</code><code>##

{
  my ($var1, $var2, $var3, @arr1);
  sub foo {
    [some code]
    bar();
  }

  sub bar {
    [rest of the code]
  }
}