{
      my( $var1, %var2, @var3, $var4 ... );
      sub initVars{ 
          $var1 =  ...;
          %var2 = ...;
     }

      sub depSub1 {
           while( my $k, $v = each %var2 ) {

          }
     }

     sub depSub2 {
           for my $elem ( @var3 ) {

           }
     }

}