sub there {
  print "I'm here!";
}

my %refs = (there => \&there,
            not => \&not_there,
            anon => sub { "I'm here too!" });

foreach (keys %refs) {
  print "'$_' is ", defined &{$refs{$_}} ? "valid\n" : "invalid\n";
}