Select Code to Download

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

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

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

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

# First example; nothing gets assigned to @array;
my @array;
...
}
my ( @array1, @array2 );
testthis( $condition ? @array1 : @array2 );