#!/usr/bin/perl $node_number = [1,2,3,4,5]; while ($node_number) { print <