given ($_) {
    when (@reglist) {
      # you have a match
    }
    default {
      # you don't have a match
    }
  }