while (local $_ = $sth->fetchrow_hashref('NAME_uc'))
{ print join("\T", @{$_}{qw/FELD1 FELD2 FELD3/}), "\n";
}