map { push( @{$_ % 2 ? \@odd : \@even }, "+$_" ) } @numbers;

##</code><code>##

Experimental push on scalar is now forbidden at pf.pl line 13, near ""+$_" ) "

##</code><code>##

 push( @{$_ % 2 ? \@odd : \@even }, "+$_" ) for @numbers;

##</code><code>##

my @evenodd = (\@even, \@odd);
push( @{$evenodd[$_ % 2]}, "+$_" ) for @numbers;