Re: SPOILER - Perl Easy quiz 2005-2

Guess I was a little bit quick on the trigger - thought I had it completely 
sorted out. The cols2rows() subroutine should be more accurately defined 
(below).

Chris


sub cols2rows {
	my @cols = @_;
	my @rows;
	while(grep @$_, @cols) {
		my @tmp = ();
		for (@cols) {
			push @tmp, shift @$_ if @$_;
		}
		push @rows, [ @tmp ];
	}
	return @rows;
}