use strict;
use warnings;

use 5.010; # Funktionen für modernes Perl aktivieren

say "Geben Sie eine Nukleotidsequenz ein:";
my $Nuk = <STDIN>;
#my $Nuk = 'GATTCCTTGACGATTCCCAGTCATATGGATCGATTCCTCAGCATATGA'; # nur zum test 

chomp $Nuk;

say "Geben Sie Restriktionsenzyme (mehrere getrennt druch Leerzeichen) ein:";
my $Restriktenz =  <STDIN>;
#my $Restriktenz =  'GATTCC CATATG'; # nur zum test 
chomp $Restriktenz;

# Liste Restriktionsenzyme als Hash
my (@restriktenz) = split /\s+/,$Restriktenz;

my %found;
for my $res (@restriktenz) {
        my (@num) = ($Nuk =~ /($res)/gi);
        $found{$res} = scalar @num;
}


say "$_ wurde "
        . $found{$_}
        . "mal gefunden"
        # sortiert nach Restriktionsenzym 
        for sort keys %found;