use bigint;$a*=42,/42/&&print$a,$/for++$a..4242