use List::Util qw(sum);
...
$jul = sum(@Days[0..$mo]) + $da;