some perl