delete switch statement

I deleted switch statement (given-when) for perl-5.18.0