my $dbh = DBI->connect(...,...,...{RaiseError => 1});
#
# ...
#
my @rows;   # nur für Variante 1
eval {
  while (my $row = fetchrow_hashref('NAME_uc')) {
    # Variante 1, Zeilen speichern
    push @rows, {%$_};
    # Variante 2, Zeilen gleich komplett anzeigen
    print join(', ', map qq($_="$row->{$_}"), keys %$row), "\n";
  }
};
$@ and die $@;
# Variante 1, gespeichertes anzeigen
foreach my $row (@rows) {
  # Zeile komplett anzeigen
  print join(', ', map qq($_="$row->{$_}"), keys %$row), "\n";
  # oder nicht alle, nur Inhalt von ...:
  # Oben das NAME_uc macht den Hashschlüssel komplett zu Großbuchstaben,
  # egal wie er im Statement angefordert wurde.
  print "$row->{AUSGEWAEHLTER_SPALTENNAME}\n";
}