Smartmatch and arrayrefs

sm.pl

use strict;
use warnings;

print "ok 1\n" if 2 ~~ (1,2);
print "ok 2\n" if 2 ~~ [1,2];

my $foo = [];

print "ok 3\n" if $foo ~~ (1,$foo);
print "ok 4\n" if $foo ~~ [1,$foo];