perl rainbow