exemple:

#!/usr/bin/perl

use Switch;

$i;
chomp($var=);

switch ($var){
  case(1) { $i = "un"; }
  case(2) { $i = "deux"; }
  case(3) { $i = "trois"; }
  else    { $i = "defaut"; }
}

print "case: $i\n";