#!/usr/bin/perl

use warnings;
use strict;

my @numbers = 6 .. 9;
my @odd = ( 1, 5, 3 );
my @even = ( 4, 10 );

$\ = $/; $, = ' ';

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