use NetAddr::IP (); my @hosts; foreach (0..255) { my $net_addr = NetAddr::IP->new("192.168.$_.0/24"); my $net_broadcast = $net_addr->broadcast(); push(@hosts, $net_addr->addr()) while ++$net_addr != $net_broadcast; } print("$_$/") foreach @hosts;