my %DD = (.....);
my $dir = "/../../pics/$DD{id}";
my @bilder = ( glob("$dir/*.jpg"), glob("$dir/*.gif") );

foreach my $bild (@bilder) {
  print qq~<img src="$bild">~;
}