Thank you Kenosis, your method seems the most straightforward. Thanks everyone who answered here and on the other thread.

Are there any recommendations on how best to put this into a spreadsheet? I want to run this on a few phrases so think it would be a good idea to put it in a spreadsheet in a consistent way rather than copy and paste from terminal. So DET would values would always be in column 1, IN in 2.

One way would be to create a CSV file and then import that into your spreadsheet:

my $filename = '/path/to/file.csv';
open (my $fh, '>', $filename) or die "Could not open $filename, $!";
my @headers = qw(
    DET
    IN
    JJ
    NN
    VBD
);
print $fh join(',',@headers) . "\n";

# then, for each of your phrases
print $fh join(',', map($tags{$_} || 0, @headers) ) . "\n";

close $fh;
[download]

However, if you intend to do the tagging at different times you will need a way to update the data. You could use Spreadsheet::WriteExcel but there is a learning curve and probably overkill. Alternatively, you can keep your spreadsheet data as a CSV file and append to that file, or use Tie::Array::CSV to append:

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;
[download]

That's great, thanks very much for your help

One question on the append function - it puts it all into one cell. I can use text to columns in Excel to fix this but is there a way to do this in the append itself?