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