add perl/python solutions for 001 exercice