Perl: script to generate return line for yieldgroups