To practice the perl