my $_ = [[[0, 1], [2, 3]], [[4, 5], [6, 7]], 8, [9, ["A", "B"]]];
sub sj (_);
sub sj (_) {join "-", map {ref() ? sj : $_} @{$_[0]}}
say sj;
__END__
0-1-2-3-4-5-6-7-8-9-A-B
[download]