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