Select Code to Download

use List::Util qw(sum);
my @arr=(1..3,5..7); 
print +(1+@arr)*(2+@arr)/2 - sum(@arr);