$flag ? $on : $off = $value;

##</code><code>##

$flag ? @array1 : @array2 = qw/This that the other/;

##</code><code>##

sub testthis {
    $_[0] = "Hi mom.\n";
}
testthis ( $flag ? $yes : $no );
foreach ( $yes, $no ) {
    print "$_\n" if defined $_;
}

##</code><code>##

my $condition = int rand 2;
my ( @array1, @array2 );
my $stuff = "This, that, and the other";
push( ( $condition ? @array1 : @array2 ), $stuff );

##</code><code>##

# First example; nothing gets assigned to @array;
my @array;
sub testthis {
    @_ = qw/This that and the other/;
}
testthis ( @array );

# Second example; nothing gets assigned to @array1 or @array2.
# But no compiletime errors are generated either:
my $condition = int rand 2;
sub testthis {
    @_ = qw/This that and the other/;
}
my ( @array1, @array2 );
testthis( $condition ? @array1 : @array2 );