perl Memoize