use strict;
use warnings;

use feature qw{ say };

use List::Util qw{ max };

open my $pkgsFH, q{<}, \ <<__EOF__ or die qq{open: < HEREDOC: $!\n};
samba-common-libs-4.2.10-6.2.el7_2.x86_64
samba-common-libs-4.2.10-8.el7_2.x86_64
samba-common-libs-4.2.12-7.el7_2.x86_64
samba-common-libs-4.2.10-6.el7_2.x86_64
samba-common-libs-4.2.10-3.el7_2.x86_64
xyz-libs-4.2.10-7.el7_2.x86_64
xyz-libs-4.2.12-7.el7_2.x86_64
xyz-libs-4.2.13-7.el7_2.x86_64
xyz-libs-4.2.11-7.el7_2.x86_64
abc-4.2.11-7.el7_2.x86_64
abc-4.2.11-8.el7_2.x86_64
abc-4.2.11-6.el7_2.x86_64
__EOF__

my %pkgs;
while ( <$pkgsFH> )
{
    chomp;
    my( $pkg, $ver )        = split m{-(?=\d)}, $_, 2;
    $ver                    =~ s{\.el7.*}{};
    my @values              = split m{[-.]}, $ver, 4;
    my $key                 = $values[ 0 ] * 1000000
                            + $values[ 1 ] * 10000
                            + $values[ 2 ] * 100
                            + $values[ 3 ];
    $pkgs{ $pkg }->{ $key } = $_;
}

close $pkgsFH or die qq{close: < HEREDOC: $!\n};

foreach my $pkg ( sort keys %pkgs )
{
    say $pkgs{ $pkg }->{ max keys %{ $pkgs{ $pkg } } }
}