for ($switch) {
    m/hier/ and do { something... }, last;
    m/da/ and do_something_else(), last;
}