Help for this page
push @{ ($_ % 2) ? @odd : @even }, $_ foreach @numbers;
push @{ (/PAT/) ? @match : @nonmatch }, $_ foreach @words;
push @{ (/PAT/) ? \@match : \@nonmatch }, $_ foreach @words;