In PHP, you have something like this:

PHP Code:
switch ($variable)
{
case 
1:
//do this;
break;
case 
2:
//do that;
break;
case 
3:
//do something else;
break;

Is there an equivalent in Perl?