$youngMan = YoungMan->new( -from => "Nantucket" );
####
if ($you{understand}) {
@things = qw(such as they are);
}
else {
@things = qw(such as they are);
}
##
##
use strict;
my %you = ( understand => rand(2) % 2 );
our @things;
if ($you{understand}) {
@things = @things;
}
elsif (not $you{understand}) {
@things = @things;
}
##
##
@things = @things if $you{understand};
@things = @things if not $you{understand};
##
##
@things = ($you{understand}) ? @things : @things;
##
##
@things = @things;
##
##
@things;
##
##
##
##
$ perl -e ''