given ( $n ) {
   when ( 1 )        { $s = 'one'; }
   when ( 2 )        { $s = 'twe'; }
   when ( 3 )        { $s = 'three'; }
   when ( 4 )        { $s = 'four'; }
   default           { $s = 'ETOOBIG'; }
}