Help for this page

Select Code to Download


  1. or download this
    sub flatten { map ref eq 'ARRAY' ? flatten(@$_) : $_, grep defined && length, @_ }