That's not the code I posted. The code I posted does not suffer from the problem you describe.

>perl -E"$a='2.0'; say $a~~[2,3];"
1

>perl -E"$a=2; say $a~~[2,3];"
1
[download]