Thanks corion.

As I already wrote before, these that I posted were just examples to shorten the code to post on here. In real life, I really do use "strict" and "die".

Unfortunately I work with a perl 5.8 interpreter, so I can't use the smart match operator (the functionality of which was the basis for my argumentation).

I'll try the "grep" suggestion :)

Thanks