#! /usr/bin/perl -wl

use List::Util qw( sum );

my @arr = (1..3,5..7);

print +- sum -1-@arr .. -1,@arr;