From your code:

print $t->csv;    # Display a 'portrait' HTML TABLE on web.
[download]

Question -- do you want to output HTML or CSV? If you wish to output an HTML table as the comment suggests, you might be able to accomplish this with the latest version (v1.04) of my Spreadsheet::HTML module:

use strict;
use warnings;
use Spreadsheet::HTML qw( portrait );

print portrait( file => 'ravi.csv', sep => '|', table => {border=>1} )
+;
[download]

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)