Update perlhist