#!/usr/bin/perl

@lines = ();
%columns = ();
%npcolumns = ();

if (scalar(keys %npcolumns) > 0) {
  unshift @lines, join(" ", sort(keys(%columns)), "|", sort(keys(%npcolumns)));
}

foreach (@lines) {
  print "$_\n";
}