#!/usr/bin/perl --
use strict;
use warnings;
...
Main( @ARGV );
exit( 0 );
sub Main {
   my $blah = Function1();
   my @blah = Function2($blah);
   @blah = Function3( \@blah );
   ...
}