Select Code to Download

use feature qw / say /;

...
$b = [1, 17, 4];
check_match('$b ~~ 17');
check_match('[1, 17, 4] ~~ 17');

1 th match succeeds
2 th match fails
3 th match succeeds
4 th match succeeds