use Data::Dumper;

sub print_out
{
  
   my $self = shift;
   
   my %errors = %{$self->{data}{errors}};

   print '<pre>'.Dumper(\%errors).'</pre>';
   
   print "Fehlerart: ",$_," (",$errors{$_}," Stück). <br />" for(keys(%errors));
   
   my $anzahl_fehler = 0;
   
   $anzahl_fehler += $_ for(values(%errors));
   
   print "Es gab $anzahl_fehler Fehler ";
}