use strict; use warnings; BEGIN { push @DB::typeahead,"b testsub","r"; } sub testsub { warn "inside"; } warn "outside"; testsub();