use bigint;$\=$/while$_=/^$k/?99>$k++-print:$_*2