for (my $i = 0; $i < @bilder; $i++) {
    print qq{<IMG SRC="../../pics/$DD{id}/$bilder[$i++]">};
    print qq{<IMG SRC="../../pics/$DD{id}/$bilder[$i]\n">};
}