push(@report, [$csv->fields]);
    
    # Later...
    return ( join( "\n", @report ) );
##</code><code>##

    my @refs = ([qw/foo bar baz/], [qw/fee fie foe/], [qw/red green/]);
 
    print join "\n", map { join ',', @$_ } @refs;