Select Code to Download

$header_rec .= "NAME ";
   $header_rec .= "ID ";
...
   $header_rec .= "STATUS ";

print "[$header_rec]\n";

my @columns = ('NAME','ID','REGION','UNIT','STATUS');
print join( "\x09", @columns), "\n";
# or alternatively
print "[@columns]\n";