$youngMan = YoungMan->new( -from => "Nantucket" );

##</code><code>##

if ($you{understand}) {
    @things = qw(such as they are);
}
else {
    @things = qw(such as they are);
}

##</code><code>##

use strict;

my %you = ( understand => rand(2) % 2 );
our @things;

if ($you{understand}) {
    @things = @things;
}
elsif (not $you{understand}) {
    @things = @things;
}

##</code><code>##

@things = @things if $you{understand};
@things = @things if not $you{understand};

##</code><code>##

@things = ($you{understand}) ? @things : @things;

##</code><code>##

@things = @things;

##</code><code>##

@things;

##</code><code>##



##</code><code>##

$ perl -e ''