use Scalar::Util qw(looks_like_number);

sub compare {
    my ($x, $y) = @_:
    if (looks_like_number($x) && looks_like_number($y)){
       return $x == $y;
    } else {
       return $x eq $y;
    }
}