Help for this page
#!/usr/bin/perl use strict; ... say $x cmp $y; $x eq $y ? say 'equal' : say $x.' '.$y;
-1 765.7 765.7 ... 0 equal