Select Code to Download

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