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

  [a large pile of code]
}