@one = @two = ();
@array = (1..10);
for(0..$#array) {
 $_ < $#array/2 ? (push(@one,$array[$_])) : (push(@two,$array[$_]));
}