for (qw( foo bar )) {
   no strict 'refs';
   $_->() || die "Command $_ did not return true!\n";
}

##</code><code>##

for (
   [ foo => \&foo             ],
   [ bar => sub { bar($arg) } ],
) {
   my ($name, $sub) = @_;
   $sub->() || die "Command $name did not return true!\n";
}