perl list identity 2