use Math::BigFloat;
Math::BigFloat->precision(-4);

for ($m = 1; $m <= 3; $m++) {
	for ($n = 1; $n <= 3; $n++) {
		$x = $m * $n * rand(3);
		print ("$x ");
	}
	print ("\n");
}