#!/usr/bin/perl

use strict;

while( <DATA> ) {
    my @numbers = split;
    my $half = int(@numbers/2);
    my @first = splice(@numbers,0,$half);
    print "@first\n";
    print "  @numbers\n";
}

__DATA__
105 106 107 108 109 110 111 112 113
1115 1116 1117 1118 1119 1120 1121 1122 1123
12345 12346 12347 12348 12349 12350 12351 12353