my %abfragen = (
    EcoRI   => qr/GATTCC/i,
    BamHI   => qr/GGATCC/i,
    HindIII => qr/AAGCTT/i,
    HaeIII  => qr/GGCC/i,
    NdeI    => qr/CATATG/i,
    SmaI    => qr/CCCGGG/i,
    PvuI    => qr/CGATCG/i,
    SphI    => qr/GCATGC/i,
);

# Achtung, willkürliche Reihenfolge
for my $abfrage (keys %abfragen) {
    if ($Nuk =~ $abfragen{$abfrage}) {
        say "Die Restriktionsenzymschnittstelle für $abfrage ist vorhanden";
    }
    else {
        say "Die Restriktionsenzymschnittstelle für $abfrage ist nicht vorhanden";
    }
}