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