for(my $k=0; $k<$maxColumns; $k++) {
	print "Min: " . min($dataA->slice('$k,:')) . "\n\n";
	print "Max: " . max($dataB->slice('$k,:')) . "\n\n";	
}