sub foo { my ( $array_ref ) = @_; my @array = @$array_ref; ... }