perl list