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;

##</code><code>##

my @hosts = map {
   my $pre = "192.168.$_.";
   map { $pre.$_ } 1..254
} 0..255;

##</code><code>##

my @hosts;
foreach (0..255) {
   my $pre = "192.168.$_.";
   foreach (1..254) {
      push(@hosts, $pre.$_);
   }
}

##</code><code>##

my $octet = join(',', 1..254);
my @hosts = glob("192.168.{0,$octet,255}.{$octet}");