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

  sub bar {
    [rest of the code]
  }
}