Select Code to Download

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

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