*smiles* Thanks for your comment. There's no case statement in Perl, though - it's usually emulated with foreach or something similar.