switching in perl 5.10