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;