Select Code to Download

#!/usr/bin/perl -w

...

print "$headname @unique\n";
print "$line @{ $counts{$_} }{@unique}\n" for sort keys %counts;

./parse-counts.pl junk.txt
Missing right curly or square bracket at ./parse-counts.pl line 36, at
+ end of line
syntax error at ./parse-counts.pl line 36, at EOF
Execution of ./parse-counts.pl aborted due to compilation errors.