use NetAddr::IP; push @space, new NetAddr::IP->new($_) for <DATA>; for my $ip (map { $_->hostenum } NetAddr::IP::compact @space) { # Do something with $ip } __DATA__ 10.0.0.0/16 172.16.0.0/24