sub blah {
    croak "You forgot something" unless all { defined } ( my ( $foo, $bar, $baz ) = @_ );
    do_something;
}