....
		if ($end > @result) {
			@result = @a[0..$end-1];
		}
...