Remove switch

Will now work in versions of Perl greater than 5.14 (Switch blows up quite severely on there)