foreach (keys %main::) {    # use whichever package you prefer
   no strict 'refs';        # else the next line fails
   if (defined *{$_}{CODE}) {
      print "$_\n";         # could be pushed onto an array,
   }                        # into a hash 
}