Please take a look at Switch statements if you are wanting to make the code readable. But you need perl 5.10 for doing this.