$ cat switch.pl
#!/usr/local/bin/perl

use Switch;

my $letter = "c";
switch($letter) {
        case "a" {print "1"}
        case "b" {print "2"}
        case "c" {print "3"}
}