The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% USE CSV -%]
[% CSV.dump([ 'Left Device' 'Left Port' 'Left VLANs' 'Right Device', 'Right Port', 'Right VLANs' ]) %]

[% FOREACH row IN results %]
  [% mylist = [] %]
  [% mylist.push(row.left_device) %]
  [% mylist.push(row.left_port) %]
  [% mylist.push(row.left_vlans) %]
  [% mylist.push(row.right_device) %]
  [% mylist.push(row.right_port) %]
  [% mylist.push(row.right_vlans) %]
  [% CSV.dump(mylist) %]

[% END %]