>perl -E " sub testing{234}; ref($main::{$_}) eq qq|CODE| and say qq|-->\$main::$_ is a Code ref| for sort keys %main::" -->$main::testing is a Code ref