如何在perl中展平多维数字阵列？

Question

我试图压扁下面显示的多维数组。

@arr = ([1,2,3,4],[5,6,7,8]);
$ref = \@arr;
@a = map {@$_} @$ref;
print "@a";

但是如果和数组ref包含另一个数组ref，如下所示。     @arr =（[1,2,3,4，[a，b]]，[5,6,7,8]）;