# hole alles aus der Datenbank
my $search = $dbh->prepare("SELECT * FROM tblimport");
$search->execute;

my %new;

# hole jede Zeile als Hashreferenz, damit ueber den Namen zugegriffen werden kann
while ( my %set = $search->fetchrow_hashref ) {

    my $key = $set->{New}; # hole das, was in der Spalte "New" steht

    # schiebe das aus der Spalte "Old" in ein Array
    push @{ $new{$key}->{strings} }, $set->{Old};

    # addiere die Länge
    $new{$key}->{length} += $set->{Length};
}

# gib alles aus
for my $key ( keys %new ) {
    my $all_strings = join " ", @{ $new{$key}->{strings} };
    my $length      = $new{$key}->{length};
    print "$key\t$all_strings\t$length\n";
}