my ($num)= $seqnum=~/^(\d+)/;
my $bigseqnum = $num +  10000000 ...

##</code><code>##

no warnings;
my $bigseqnum = int($seqnum) + 10000000 ...
use warnings;