in reply to A TRUE-once variable

'with while' solution will be more elegant with this modification: 
while (...){ 
  print",\n" unless $should_not_print++; 
  # munging ...
}

[download]

In Section Seekers of Perl Wisdom