say $_%2-1+(2,2,(*+*)%500*2...*)[$_%600+($_>3)*600]for get