> foreach my $zeile ( split/ /, $rec_db ) {
Das geht nicht.
Die verschiedenen Datensätze sind durch \n voneinander getrennt.
Wenn ich nach Leerzeichen splitten würde bekäme ich irgendwelche willkürlichen Schnipsel raus, da Leerzeichen fast in allen Abschnitten eines Datensatzes vorkommen können, nur nicht da, wo Trennzeichen stehen.

Die Datensätze wurden aus einer Datei Zeilenweise ausgelesen, in ein Textarea-Feld geschrieben damit man sie verändern kann und über dieses wieder verschickt.
Folglich ist in $query->{db} ( use Vars; my $cghi = CGI->new(); my $query = $cgi->vars(); ) ein String, der diue ganzen Zeilen, incl. \n der Textarea enthält.

Aber das mit dem Hash wäre vielleicht einen Versuch wert.
mfg pktm