my $_first_octet_num = "1"; my $_ip_address; foreach (1..254){ $_ip_address = join ('.', 192,168,$_second_octet_num,$_first_octet_num++) if ($_ <= 254); print "\n$_ip_address\n"; }