Help for this page

Select Code to Download


  1. or download this
    my ( @evens, @odds );
    my @all = ( \@even, \@odd );
    push @{ $all[ $_ % 2 ] }, $_ for split /,/, $scalar;
    
  2. or download this
    my @all = \my ( @evens, @odds );