my @data;
while (local $_ = $sth->fetchrow_hashref('NAME_uc'))
{ push @data, {%{$_}};
}
print 
  $data[7]->{FELD1},
  "\T",
  $data[5]->{FELD2},
  "\T",
  $data[7]->{FELD3},
  "\n";