in reply to case command ??

You can get the Switch module from CPAN (or via ppm if you are using ActiveState).

In Section Seekers of Perl Wisdom