#!perl main(); sub main { my $var = ...; my @var = ...; sub1($var); sub2(@var); exit 0; }