my @varnames = qw{var1 var2 var3};
foreach my $var (@varnames)
  {
  if(${$var} eq "")
    {&complain};
  }