Switch block since you're using Perl 5.14

A switch block makes more sense.