use vars qw(@EXPORT);
...
sub foo {
  ...
}
push @EXPORT, 'foo';
...
sub bar {
  ...
}
push @EXPORT, 'bar';
...