#!/usr/bin/perl $node_number = [1,2,3,4,5]; while ($node_number) { print <## node = 1 ccu = 5 ccu2 = 9 tacaf = y enable = y sync = 8 node = 2 ccu = 5 ccu2 = 9 tacaf = y enable = y sync = 8 node = 3 ccu = 5 ccu2 = 9 tacaf = y enable = y sync = 8 node = 4 ccu = 5 ccu2 = 9 tacaf = y enable = y sync = 8 node = 5 ccu = 5 ccu2 = 9 tacaf = y enable = y sync = 8