my $request = shift;
switch($request) {
  case 'names'  print @names;
  case 'birthdays' print @birthdays;
  else print 'unknown request`;
}