sicone,
As has been pointed out, using Switch in production code is discouraged. This will be mostly remedied in Perl6. Dispatch Tables don't offer the same degree of flexibility, but for specific problems are a great solution.