while (my $row = $select->fetchrow_hashref()) {
    my $key = join '', delete @{$row}{@key_columns};
    $kol{$key} = $row;
}