Help for this page

Select Code to Download

Select or download this

$preprod->{$siebdb} = $k;
print "[$k]\n";
...
} else {
    print "DIFFERENT\n"
}