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