push @{ ($_ % 2) ? @odd : @even }, $_ foreach @numbers;

##</code><code>##

push @{ (/PAT/) ? @match : @nonmatch }, $_ foreach @words;

##</code><code>##

push @{ (/PAT/) ? \@match : \@nonmatch }, $_ foreach @words;