my ($list, $offset, $length, @list) = @_;