Select Code to Download

my @columns = (category,id,code,title,summary);

my @columns = qw{
  category id code title summary 
...
  rolemandatory rolerecommended 
  roleoptional url modality length
};

  @rec{@columns} = split ('\|', $row);

  printf $fh_out
   "<xtag:%s>%s</xtag:%s>\n",
    $colname,
    $rec{$colname},
    $colname;

#!/usr/bin/perl 

...
f|f|f|f|f|f|f|f|f|f|f|f|f|f|f
g|g|g|g|g|g|g|g|g|g|g|g|g|g|g

<?xml version="1.0" encoding="ISO-8859-1"?>
<xtags:some-node xml:lang="en">
...
    <xtag:modality>b</xtag:modality>
    <xtag:length>b</xtag:length>
  </xtag:course>