use PadWalker 'var_name';

for my $arg (\($foo, $bar, $baz))
{
    next if defined $$arg;
    my $name = var_name(0, $arg);
    croak "You forgot to define $name!\n";
}