ok-
in keeping with the *nix commands theme how about:

#
#  find last row that defines the columns ( i.e. starts with #name: )
#
my $column_names = qx/grep ^\#name $filename | tail -1/;
print $column_names;
[download]

-hth