Select Code to Download

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

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