foreach my $check ( \( $var1, $var2, $var3 ) )
{
    complain() if $$check eq '';
}