my $condition = 1;
my @options = qw/val1 val2/;

if ($condition) {
  @options = qw/val3 cal4/;
}

my $q = CGI->new();
print $q->Select(
        map { $q->option($_) } @options
);