Question

In php I can stack case statements, can I do equivalent with perl?

        switch($myValue)             
        {            
            case "one":
            case "two":
            break;
            case "three":
            break;
            default:
            break;
         }

Answer 1

Switch statements in Perl^{>= 5.10} are implemented using given and when constructs. It is highly flexible due to smart-matching of the value passed to given.

use feature qw( switch );
use strict;
use warnings;

given ($value) {
    when ( [qw/one two/] ) {
        # do something
    }
    when ('three') {
        # do some other thing
    }
    default {
        # default to something
    }
}

You could even write when ( [qw/one two/] ) as when ( /one|two/ ).