warn "wrong argument"
  if ref $arg{x}
  || !($arg{x} ~~ [qw/a b c/]);