Select Code to Download

use strict;
use warnings;
...
my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\n
+" });
$csv->print (*STDOUT, \@keys);
$csv->print (*STDOUT, [ map { "@$_" } @values{@keys} ]);

Host,Kernel,Version,"Hot fixes","Enabled Features"
NetDevice1234,"Linux 2.6.18-164.11","Driver 23.4.1 333.0 Hotfix BLD Ed
+ition","HF372590 HF372804 HF372864","FTP HTTP SMTP Active Directory"