use v5.30.2;
use strict;
use warnings;
my $float = 12.1212;
$float -= 12;
$float -= 0.1212;
say $float;
# =>-2.77555756156289e-17
my $floti = 0;
$floti += 12.1212;
$floti -= 12;
$floti -= 0.1212;
say $floti;
# => -2.77555756156289e-17
my $flotter = 12.1212;
my $flotteur = $flotter - 12;
my $flottera = $flotteur - 0.1212;
say $flottera;
# => -2.77555756156289e-17
use bignum;
my $ok_float = 12.1212;
$ok_float -= 12;
$ok_float -= 0.1212;
say '';
say 'Youpi, solved it:';
say $ok_float;