my %lists = (
   'coderef_name1' => \&coderef1,
   'coderef_name2' => \&coderef2
);

while (my($key, $code) = each %lists) {
  print "executing $key: ";
  $code->();
}