k-shell case statement

[Robert_Collins]

What is the best perl example of a k-shell case statement as follows:

case "$VAR1"
in
    1 )
        statements
    ;;
    2)
        statements
    ;;
    * )
        other statements
esac