#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper;
use 5.010;
use Socket 'inet_aton';

my @ips;
my @ranges = qw(
  192.168.1.10-192.168.1.20
  192.168.1.30-192.168.1.40
);

for my $range ( @ranges ) {
    my ( $start, $end ) = split /-/, $range;
    say "Found RANGE: $start - $end";

    # Get each IP in the range
    @ips = map { sprintf "%vi", pack "N", $_ } unpack("N",inet_aton($start))
    .. unpack("N",inet_aton($end));
    #print Dumper(@ips); # prints all IPs
}
print Dumper(@ips); # prints only last range of IPs

# Do stuff with each IP ...