added perl_memo