use Tie::Array::CSV;
my $filename = '/path/to/file.csv';
tie my @file, 'Tie::Array::CSV', $filename;

# (this bit has been fixed - see comment below)
# for each of your phrases
my @row = map { $tags{$_} || 0 } @headers;
push(@file,\@row);

untie @file;