I believe I first saw this in Programming Perl.

SWITCH:
{
    do_run() last SWITCH if $_ eq "do_run";
    do_walk() last SWITCH if $_ eq "do_walk";
    do_skip() last SWITCH if $_ eq "do_skip";
}
[download]

Jeremy