Select Code to Download

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

  [a large pile of code]
}

{
  my ($var1, $var2, $var3, @arr1);
  sub foo {
...
    [rest of the code]
  }
}