-     my $p = product split //, $n;
+     my $p = 'Math::BigInt'->new(product split //, $n);