perl -we " @a = qw!a b!;while (my $x = pop @a) { push @x, \$x; print \$x, q!: !, ($x || 0), qq!\n!; redo if 0 != @x % 3; };