Андрей Бондарчук

Уже и позабыл о этом вопросе. Меж тем решил задачу следующим образом:
Скрипт обращается к txt файлу в котором указаны адреса и нужные имена в формате "255.255.255.255|hostname", отделяет адрес от текста, заносит их в отдельные переменные, потом заходит по адресу указанному в переменной с адресом и выполняет нужные операции. В операции по замене имени подставляет переменную с хостнеймом в текст команды. Сохраняет настройки и уходит с устройства. Цикл повторяется пока не закончится текстовый файл.

#while (<$IPadd>)
while (defined($Source = <TEMP>))
{
($IPadd, $Hostname) = (split/\|/ , $Source);
my ($command1)="$Hostname";
print "$Source $IPadd\n $Hostname";
$counter++;
	       chomp ($_);
           $t->open($IPadd);
           $t->waitfor('/:$/i');
           $t->print($username);
           $t->waitfor('/:$/i');
           $t->print($passwd);
		   $t->print ("$ena");
		   $t->print ("$conf");
			$t->print("hostname $command1");
			$t->print("$command_exit");
		    my @command= $t->cmd(Timeout => 60, String =>"$command_wrmem");
			@command= $t->cmd(Timeout => 60, String => 'y');
			$t->print("$command_exit");
			#$t->print("$command_exit");
			print "$counter",' ';
}
close TEMP;
print ('done on ',"$counter",' ');

Паузы в конце ставились из-за того, что на некоторых железках конфигурация не сохранялась.
Способ не идеальный, но в свое время помог серьезно ускорить работу.