put in missing use feature qw(switch); thanks to Botje on #perl