#!/usr/bin/perl

use strict;
use warnings;
use feature qw/say/;

use Text::CSV;

my $csv = Text::CSV->new( { binary => 1 })
    or die "Cannot use CSV" . Text::CSV->error_diag();

my %results = ();

while(<DATA>) {
    chomp;

    $csv->parse($_) or die "Could not parse string '$_'" . Text::CSV->error_diag();
    my @row = $csv->fields();

    my $uniqueID = $row[0];
    my $string   = $row[1];

    if(!exists $results{$uniqueID} or $results{$uniqueID}->{'length'} > length $string) {
        $results{$uniqueID} = {
            'length'    => length $string,
            'row'       => $_
        };
    }
}

foreach (sort keys %results) {
    say $results{$_}->{'row'};
}


__DATA__
A, texttexttext, col3, col4,
B, textt,        col3, col4,
A, text,         col3, col4,
B, texttex,      col3, col4,