"Easier" and "better" are subjective. But it can certainly be shorter:

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

Abigail