sub verarbeiten {
  # Listenkontext; erstes Element von @_ landet in $hRef
  my ( $hRef ) = @_;

  for my $key ( keys %$hRef ) {
    # tu was
  }
}

my $data = readDB();

verarbeiten( $data );