$sel = "select ..........."
my $sth = $dbh->prepare($sel);
$sth->execute();
.....
if ($sort1 eq "dat")
{
	while (my ($hindat, $backdat, $gpreis) = $sth->fetchrow_array())
	{
		my $fhindat = substr($hindat,8,2).".".substr($hindat,5,2).".".substr($hindat,0,4);
		my $fbackdat = substr($backdat,8,2).".".substr($backdat,5,2).".".substr($backdat,0,4);
		my $fgpreis = $gpreis." EUR";
		"<table class='blind' cellspacing='10'><tr>",
		"<td>$fhindat</td><td>$fbackdat</td><td>$fgpreis</td><td></td>",
		"</tr></table>",
	}
}
....