I think you probably mean something like:

my @nodenumbers = (1,2,3,4,5);

foreach my $node_number (@nodenumbers)
{
  # etc
}
[download]

/J\