#!/usr/bin/perl
use strict;
use warnings;
use 5.010;

my $x=0.95*806;
my $y=1.3*589;

say $x <=> $y;

$x == $y ? say 'equal' : say $x.' '.$y;

say $x cmp $y;

$x eq $y ? say 'equal' : say $x.' '.$y;

#now with simpler math

$x=2*1.25;
$y=5*0.5;
 
say $x <=> $y;
 
$x == $y ? say 'equal' : say $x.' '.$y;

say $x cmp $y;

$x eq $y ? say 'equal' : say $x.' '.$y;

##</code><code>##

-1
765.7 765.7
0
equal
0
equal
0
equal