sub tst {
  %arg = @_;
  
  warn "wrong argument" unless
	"$arg{x}" ~~ [qw/a b c/] ;
}