I like this a bit more than a hash, but why not use real references?

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