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

for ($m = 1; $m <= 3; $m++) {
    for ($n = 1; $n <= 3; $n++) {
        my $x = Math::BigFloat->new($m * $n * rand(3));
        print $x, " ";
    }
    print ("\n");
}