in reply to How can I skip an element in an array whilst reading...

I fail to see where the "either side" comes from.... If you mean your array is:

2022, 2002, 6, 78 1023, 1232

Then the following should work: 

while( @in ){
  push @out1, shift(@in);
  push @out2, shift(@in);
}

[download]

In Section Seekers of Perl Wisdom