my (@right, @left);
(@left[0 .. $n - 1], @right) = @$self;