#!/usr/bin/perl
use strict;
foreach my $number ( 0..255 ) {
  my $label = sprintf("%03d",$number);
  print "192.168.5.$number nombrequipo005$label nombrequipo005$label.ejemplo.de.muestra\n";
}