sub transpose {
	my @array = @_;

	my @trans;
	for my $i (0 .. $#array) {
		for my $j (0 .. $#{$array[$i]}) {
			$trans[$j][$i] = $array[$i][$j];	
		}	
	}
	return @trans;
}