# subs first - BEGIN not needed
{  my $var = 'blah';
   sub foo { ... }
   sub bar { ... }
}

sub bax { ... }

do_stuff_here();