sub flatten;
    sub flatten {map {ref $_ ? flatten @$_ : $_} @_}