sub cmp3 {
    my ($x, $y, $z) = @_;
    ($y, $x) = ($x, $y) if $y < $x;
    ($z, $y) = ($y, $z) if $z < $y;
    ($y, $x) = ($x, $y) if $y < $x;
    if (1 == $z % 2) {
        return "$z is the biggest odd number\n"
    } elsif (1 == $y % 2) {
        return "$y is the biggest odd number\n"
    } elsif (1 == $x % 2) {
        return "$x is the biggest odd number\n"
    } else {
        return "All are even numbers\n"
    }
}