Thank you very much for all your suggestions, guys. I've learnt a lot. Not only to reach what I wanted, but also some nice other nice things, like the way I used $line = <DATA>;. At the end I opted for an array to store the "variants", even if all other suggestions were great. Eger to learn more on handling multi dimensional hashes/arrays.