Select Code to Download

while(my($one,$two)=(shift(@aray),shift(@aray)) ) { ...

#or even
while(my($one,$two) = splice(@aray,0,2) ) { ...

my @array = qw/ 1 2 3 4/;

...
  return ($one, $two);

}