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

##</code><code>##

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