my @as = @{ $array[0] };
foreach my $a (@as) {
	my @bs = @{ $array[1] };
	foreach my $b (@bs) {
		my @cs = @{ $array[2] };
		foreach my $c (@cs) {
			print $a;
			print $b;
			print $c . ", ";
		}
	}
}