my @even = grep $_ % 2 == 0, @numbers;
my @odd  = map $_ * 2 +1,    @numbers;