Select Code to Download

227.20
1176.00
...
0.00
0.00
0.00

7566.85

open (X,"< x.txt");
while ($n = <X>) {
...

    return sprintf("%.${dp}g",$A) eq sprintf("%.${dp}g",$B);
}

t  = 7566.85
st = 7566.85
Different

sub equal {
    my ($A,$B,$dp) = @_;
...
    }
    return sprintf("%.${dp}g",$A) eq sprintf("%.${dp}g",$B);
}

t  = 7566.85
st = 7566.85
Equal