sub bild {
   my $hashref = shift;
   print "Bild: $hashref->{BILD}\n";
}