beh...io farei cosi':
codice:
use strict;
use warnings,
use CGI;

my $q = new CGI();

my $valore = $q->param('var1') || undef;

if ($valore) {

   # e' definita...

} else {

   # non e' definita...

}

oppure:

if (!$valore) {

   # non e' definita...

} else {

   # e' definita...

}