[perl #104162] Smart match that causes segfaults.

On the newly released 5.16.0-RC0, the following still segfaults:

perl -E'my $a = [qw/a A/]; my $b = ["b", $a, "B"]; push @$a, $b; say 
"hurrah" if 'B' ~~ $b;'

• [perl #104162] Smart match that causes segfaults. by Toby Inkster via RT