sub foo {}
sub bar;

my @names = qw( foo bar baz );

local $, = "\t";
local $\ = "\n";
print('',                                  @names);
print('exists',  map { exists(&$_)  ?1:0 } @names);
print('defined', map { defined(&$_) ?1:0 } @names);