in reply to Don't print on the last loop

1. build a scalar with your schema: my $schema; $schema .= <your schema step-by-step>;
2. chop($schema)
--

when small people start casting long shadows, it is time to go to bed

In Section Seekers of Perl Wisdom