use 5.010;
given ($foo) {
   when ($condition) { code }
   ...
}