my @fr;
$fr[$_] = [ (0)x10 ] foreach (0..$maxdigits);