given ($a)
{
  when ('a') { print 1};
  when ('b') { print 2};
  ...
}