use 5.010;
given ($value) {
   when (1) { ... }
   when (2) { ... }
   default { die "Don't know what to do with '$_'" }
}