#!/usr/bin/perl -wT

     my ($global_vars....) = (global_var_definitions);
     # : Continues for some time

     sub func1 {}
     sub func2 { calls FuncN(), for example }
     # : many functions

     my (%funcN_data) = ( stuff );

     sub funcN { reference to %funcN_data fails silently }