Least recently used cache queue in pure perl