More floating-point fun! .perl’s documentation states that its output “can usually be re-evaluated with EVAL to regenerate the object”, yet it uses the same imprecise representation as Str:

$ perl6 -MMONKEY-SEE-NO-EVAL -e 'my $a = 1e0 + 1e-15; say EVAL($a.perl
+) == $a'
False
[download]

Sets can be equal even if their elements aren’t:

$ perl6 -e 'my ($a, $b) = (1e0, 1e0 + 1e-15); say $a == $b; say set($a
+) ~~ set($b); say $a (-) $b'
False
True
set()
[download]