my $test_result = ; my @values = $test_result ? qw( c ) : qw( a b ); print @values;