my $data = &readDB(); # Das funktionier und kann dann auch im Main verarbeitet werden

&verarbeiten(\$data); # Irgendwie funktioniert das nicht richtig 
&verarbeiten(\%$data); # Auch das funktioniert nicht

sub {
   $data = @_;

   foreach (%$data) {
    # etwas machen
  }
}