these little games are always fun:)
I like perl munchies:P
If anyone would like to comment on a neater/more stylish way of handling the toggle, I would appreciate it:)

sub foo{

my @list = @_;
my $toggle = 0;
my (@list0,@list1);
my $element;

while($#list > $#list0 && $#list > $#list1 ){
if($toggle == 2){
           $toggle = 0;
           next;
}else{
      $element = pop(@list);
      if($toggle ==1){
                 push(@list1,$element);
      }else{
                 push(@list0,$element);
      } # end of else toggle == 1
      $toggle++;
} #end of else toggle == 2

} #end of while

return \@list, \@list0, \@list1;
} # end of sub;
[download]