my @lol = ([1, 2, 3], 'x', [qw(A B C)], 'foo'); print join "\n", map {ref $_ ? join ', ', @$_ : $_} @lol;