my @ROUTINES;
BEGIN {
  @ROUTINES = qw(echo);
  ...
}