add some perl practice