Thank you guys very much !

I've found here many ways to do this switch.

Especially for etcshadow for his original way.

Thanks TimToady, Aristotle, BrowserUk for example with eval-ed goto (actually I was thinking abiut this way when i was wakin up today).

Aristotle nested do works, but code looks very ugly ;)

TomDLux does not solve fallthrugh case in general, but perfectly suits for my case (i choosed such solution, thank you).

Very original solution gave me demerphq, but it not sutable for me because i'm doing some computation work (instead of prints, which I've chosed for example of how fall through works for people not familar with C).

substr actually does not fit, because i've choosed print as example of fall through (as i said earlier).

PS. I'm new to perlmonks, but my first impression is great !

PPS. Does anybody knows where I can post tips at perlmonks (i've found a nice way to make addition and subtraction by modulo 2^32 on machines where perl compiled with use64bitint=undef)