my $is_later =
  ( version->parse("1.23.4") > version->parse("5.6.78") );
[download]

Example:

use warnings;
use strict;

for my $vs (
    [ qw( 1.1.1    1.01.1 ) ],
    [ qw( 1.23.4   1.22.4 ) ],
    [ qw( 1.23.4   2.02.1 ) ],
    [ qw( 1.3.42   1.02.1 ) ],
    [ qw( 8.27.32  8.27.17 ) ],
) {
    my ($v1, $v2) =
      map { version->parse($_) }
      @{ $vs };

    my $c =
      $v1 == $v2
        ? "=="
        : $v1 > $v2
          ? ">"
          : "<";

    print "$v1 $c $v2\n";
}

__END__

1.1.1 == 1.01.1
1.23.4 > 1.22.4
1.23.4 < 2.02.1
1.3.42 > 1.02.1
8.27.32 > 8.27.17
[download]