I wanted a puppet-ish switch statement in perl