The smartmatch operator takes an array reference as argument:

% perl -MO=Deparse -e '1 ~~ @{[1,2]}'
Smartmatch is experimental at -e line 1.
1 ~~ \@{[1, 2];};
-e syntax OK
[download]

simplifying the code to: 3 ~~ [split //, $a];