perl cache try 3