perl excersize