my $net = NetAddr::IP->new('10.2.9.0/29');
my $seen_gateway;
for my $ip ($net->hostenum) {
   next if !$gateway++;
   print $ip->addr, "\n";
}

##</code><code>##

my $net = NetAddr::IP->new('10.2.9.0/29');
my @hosts = $net->hostenum;
for my $ip (@hosts[1..$#hosts]) {
   print $ip->addr, "\n";
}